malcalakovalski

# Setup -------------------------------------------------------------------
librarian::shelf(tidyverse, systemfonts, ggtext, ragg)
scoobydoo <-
  readr::read_csv(
    'https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2021/2021-07-13/scoobydoo.csv',
    na = 'NULL'
  )
# Tidy --------------------------------------------------------------------
tidy_scooby <-
  scoobydoo %>%

malcalakovalski

# Setup -------------------------------------------------------------------
librarian::shelf(tidyverse, lubridate, systemfonts, ggtext, ragg,
                 ggbump)
scoobydoo <-
  readr::read_csv(
    'https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2021/2021-07-13/scoobydoo.csv',
    na = 'NULL'
  )

malcalakovalski

# Setup -------------------------------------------------------------------
librarian::shelf(tidyverse, palmerpenguins, ggbrookings)
devtools::load_all()
# Import fonts if they are new
import_thp_fonts()
# Register them so R can find them
register_thp_fonts()

# Set the default theme as thp
theme_set(theme_thp())

malcalakovalski

librarian::shelf(ggbrookings, magick)
plot_wlogo <-
  add_logo(plot_path = 'figures/lorena_chart.png', # where your png is
         logo_path = 'hc', # Hutchins Center Logo
         logo_scale = 4, # Occupy one fourth of the horizontal space
         height_padding = 0.025 # Veritcal padding, adjust according to what looks good)

image_write(image = plot_wlogo,
            path = 'figures/lorena_chart.png' #save the png file back to the same path, now with a logo)

malcalakovalski

{
  "sync": {
    "always_save_history": false,
    "auto_detect_indentation": true,
    "auto_expand_error_tracebacks": true,
    "background_diagnostics_delay_ms": 1,
    "check_unexpected_assignment_in_function_call": true,
    "code_completion_characters": 2,
    "code_completion_delay": 2,
    "code_completion_other": "triggered",