tmp <- fig_df %>% dplyr::group_by(!!rlang::sym(date_col)) %>% dplyr::count() max_val = max(tmp$n)
timci::plot_geom_bar_over_time(df = fig_df, facility_col = facility_col, date_col = date_col, date_lbl = date_lbl, date_break_str = dbreak_duration, date_format = date_format, start_date = start_date, end_date = lock_date, max_val = max_val, text_size = tsize)
rm(tmp, fig_df) gc()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.