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

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

library(dplyr)

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

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

seankross

library(shiny)

miniTabstripPanel(
  miniTabPanel("Data", icon = icon("table"),
               selectInput("dataset", "Data set", ls("package:datasets"))),
  miniTabPanel("Subset", icon = icon("sliders"),
               uiOutput("subset_ui")
  )
)