Skip to content

Instantly share code, notes, and snippets.

@seankross
seankross / app.R
Created Jun 5, 2017
rOpenSci Unconf Issue Browser
View app.R
library(gh)
library(jsonlite)
library(purrr)
library(tibble)
library(dplyr)
library(shiny)
library(plotly)
# You can create a GitHub PAT here: https://github.com/settings/tokens
Sys.setenv(GITHUB_PAT = "")
View app.R
library(shiny)
library(dplyr)
delete_last_row <- function(df){
df[1:(nrow(df) - 1),]
}
ui <- basicPage(
plotOutput("plot1", click = "plot_click", dblclick = "plot_dblclick")
)
View file2fb066d9cc61.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364
View file2fb0fed4e6f.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364
View file2fb056caa378.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364
View file2fb05b39f2a3.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364
View file2d2c19cd37ad.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364
View file2d2c72679b19.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364
View file16eb300e1326.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364
View file16eb122af248.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364