charliejhadley

Keybase proof

I hereby claim:

• I am charliejhadley on github.
• I am charliejhadley (https://keybase.io/charliejhadley) on keybase.
• I have a public key ASB61pKsjgg3Lk3LkBgGJa0L_VHfkbE8lPjoJxs3Xnt9Jwo

To claim this, I am signing this object:

charliejhadley

library(shiny)
library(shinyWidgets)
library(shiny.telemetry)
library(highcharter)

telemetry <- Telemetry$new()

ui <- fluidPage(selectInput("things", "things", choices = letters))

shinyApp(

charliejhadley

charliejhadley

library("tidyverse")
library("ggforce")

cols_gpcds <- list(graph_primary = "#30CED1", graph_tertiary_darker = "#105052", 
                   graph_tertiary_lighter = "#1E8F91", graph_tertiary = "#1B8385", 
                   graph_secondary = "#D13BA4", plot_primary = "#E0BE36", plot_tertiary_darker = "#615216", 
                   plot_tertiary_lighter = "#A18826", plot_tertiary = "#947A14", 
                   plot_secondary = "#4CE0D0", chart_primary = "#FA8A5B", chart_tertiary_darker = "#80452E", 
                   chart_tertiary_lighter = "#C06845", chart_tertiary = "#B3542F", 
                   chart_secondary = "#A7FF75", story_primary = "#EB526F", story_tertiary_darker = "#6B2332", 

charliejhadley

library("tidyverse")
library("emo")
library("geomtextpath")
library("ggtext")
library("hrbrthemes")

data_hist <- {
  set.seed(1)
  tibble(
    x = rnorm(500,

charliejhadley

library("tidyverse")
library("fivethirtyeight")

library("ggrepel")
library("hrbrthemes")
library("ggtext")

bechdel_complete <- bechdel %>% 
  drop_na() %>% 
  mutate(profitable = budget_2013 <= domgross_2013)

charliejhadley

library(tidyverse)
library(ggraph)
library(tidygraph)


nodes_characters <- starwars %>% 
  mutate(character_id = row_number(), .before = 0) %>% 
  mutate(across(where(is.list), ~lengths(.x), .names = "n_{.col}"))

edges_reoccuring_co_stars <- nodes_characters %>% 

charliejhadley

tibble::tribble(
     ~country, ~year,     ~month,    ~name, ~value,
  "Australia", 2011L,  "January", "births", 24550L,
  "Australia", 2011L,  "January", "deaths", 11483L,
  "Australia", 2011L, "February", "births", 23209L,
  "Australia", 2011L, "February", "deaths", 10522L
  )

charliejhadley

function(input, output, session){
  
  output$curve_plot <- renderPlot({
    
    print(input$exponent)
    
    curve(x^as.integer(input$exponent), from = -5, to = 5)
    

charliejhadley

devtools::install_github("charliejhadley/rdocsanalysis")

library(tidyverse)
dplyr_docs <- rdocsanalysis::process_pkg_docs("dplyr", version_number = "1.0.0")