Skip to content

Instantly share code, notes, and snippets.

View file16eb5a2a6752.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364
View file16eb29a92a22.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364
View file16eb51558c2b.R
#' @importFrom shiny
#' @import miniUI
codefinch_app <- function(){
img_path <- tempfile(fileext = ".png")
ui <- miniPage(
gadgetTitleBar("Codefinch: Tweet Your Code",
right = miniTitleBarButton("tweet_it", "Send Tweet", primary = TRUE)),
miniContentPanel(
fillRow(flex = c(2, 3),
View file16eb2d299e76.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364
View file16eb7edb18d2.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364
View file16eb1b8d51e7.R
#' @importFrom shiny
#' @import miniUI
codefinch_app <- function(){
img_path <- "./image.png"#tempfile(fileext = ".png")
ui <- miniPage(
gadgetTitleBar("Codefinch: Tweet Your Code",
right = miniTitleBarButton("tweet_it", "Send Tweet", primary = TRUE)),
miniContentPanel(
fillRow(flex = c(2, 3),
View file16ebe228ddc.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364
View file16eb48fdb203.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364
View file16eb720a2f85.R
library(dplyr)
mtcars %>%
group_by(cyl) %>%
summarize(mean(disp))
# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl> <dbl>
# 1 4 105.1364
View file16eb2a787621.R
#' @importFrom shiny
#' @import miniUI
codefinch_app <- function(){
img_path <- tempfile(fileext = ".png")
ui <- miniPage(
gadgetTitleBar("Codefinch: Tweet Your Code",
right = miniTitleBarButton("tweet_it", "Send Tweet", primary = TRUE)),
miniContentPanel(
fillRow(flex = c(2, 3),