seankross

library(dplyr)

mtcars %>%
  group_by(cyl) %>%
  summarize(mean(disp))

# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl>        <dbl>
#   1     4     105.1364

seankross

library(dplyr)

mtcars %>%
  group_by(cyl) %>%
  summarize(mean(disp))

# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl>        <dbl>
#   1     4     105.1364

seankross

library(dplyr)

mtcars %>%
  group_by(cyl) %>%
  summarize(mean(disp))

# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl>        <dbl>
#   1     4     105.1364

seankross

library(dplyr)

mtcars %>%
  group_by(cyl) %>%
  summarize(mean(disp))

# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl>        <dbl>
#   1     4     105.1364

seankross

#' @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),

seankross

library(dplyr)

mtcars %>%
  group_by(cyl) %>%
  summarize(mean(disp))

# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl>        <dbl>
#   1     4     105.1364

seankross

library(dplyr)

mtcars %>%
  group_by(cyl) %>%
  summarize(mean(disp))

# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl>        <dbl>
#   1     4     105.1364

seankross

#' @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),

seankross

library(dplyr)

mtcars %>%
  group_by(cyl) %>%
  summarize(mean(disp))

# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl>        <dbl>
#   1     4     105.1364

seankross

library(dplyr)

mtcars %>%
  group_by(cyl) %>%
  summarize(mean(disp))

# # A tibble: 3 × 2
# cyl `mean(disp)`
# <dbl>        <dbl>
#   1     4     105.1364