inst/update_data/update_tidy_results.r

In johnchower/notificationGraphs: Create graphs of Gloo email notification click-through rates

proj_root <- rprojroot::find_root(rprojroot::has_dirname('notificationGraphs'))

devtools::load_all(pkg = proj_root)
glootility::connect_to_redshift()

  notification_clicks <- 
    get_notification_click_data(con = redshift_connection$con) 

  tidy_results <- tidy_notification_click_data(notification_clicks)

  RPostgreSQL::dbDisconnect(redshift_connection$con)
devtools::use_data(tidy_results
                   , overwrite = T
                   , pkg = proj_root)