seankross

library(aws.polly)

jeff <- synthesize("Hello, I am Jeff Leek. Take a look at this chart on my left.", "Joey")
plot(jeff@left, type = "l")

seankross

library(dplyr)

x <- mtcars %>%
  group_by(cyl) %>%
  sample_frac(replace = TRUE)

mtcars %>%
  group_by(cyl) %>%
  summarise(sum = n())

seankross

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 = "")

seankross

library(shiny)
library(dplyr)

delete_last_row <- function(df){
  df[1:(nrow(df) - 1),]
}

ui <- basicPage(
  plotOutput("plot1", click = "plot_click", dblclick = "plot_dblclick")
)

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