dicook / covid19 Goto Github PK

state_monash_data <- state_monash_data %>%
  mutate(rate = round(count/pop * 100000, digits = 2),  #change in decimal places
         test_rate = round(tested/pop * 100, digits = 2)) %>% # change in multiplier and  decimal places
  mutate(date = ymd(date))

covid_ne_jhu_smry %>% 
  select(state, date, count, tested, pop, rate, test_rate) %>%  # replace deaths by pop
  arrange(desc(count)) %>%
  datatable(options = list(
  bPaginate = FALSE
))