In wzb-ipi/dashdash: Make simple dashboards for live data display

knitr::opts_chunk$set(echo = FALSE)

r my_args$intro_text^[r my_args$intro_note]

---

k  <- 1

{.tabset .tabset-pills}

All Data {.tabset .tabset-pills}

r my_args$data_note

Browse data {.tabset}

my_data %>%
 group_by(id, date) %>% mutate(obs = n()) %>% ungroup %>%
 group_by(id, date)  %>%
 summarise_all( function(x)  mean(x, na.rm = T)) %>% 
 mutate_if(is.numeric, ~round(., 3)) %>%
  datatable(caption = paste('Data to date,', group, 'level'), 
          rownames = TRUE, 
          extensions = c('Buttons', 'Scroller', 'ColReorder', 'FixedColumns'), 
          options = list(colreorder = TRUE, 
                         dom = 'Bfrtip',
                         buttons = c('copy', 'csv', 'excel'),
                         deferRender = TRUE,
                         scrollY = 200,
                         scroller = TRUE,
                         scrollX = TRUE
#          fixedColumns = list(leftColumns = 1)
  )) 

Data summaries {.tabset}

Technical: Summary measures on all data.

summary_table(my_data, my_vars)

---

Notes

wzb-ipi/dashdash documentation built on Aug. 30, 2020, 4:42 p.m.