R/03-funciones-auxiliares.R

In jbkunst/covid-chile: Covid Chile

valueBoxCaptions <- function(value, caption, info, icon = NULL, color = NULL, href = NULL) {
  
  # value <- "1.5 millones"
  # caption <- "Confirmados"
  # 
  # info <- c(
  # "Dato interesante 1",
  # "Dato interesante 2",
  # "Dato interesante 3"
  # )
  
  info <- purrr::map2(info, length(info):1, function(x, y){
    
    spn <- tags$span(x)
    
    if(y == 1) {
      return(spn)
    }
    shiny::tagList(spn, tags$br())
  }) 
  
  caption <- tags$span(
    tags$b(caption), tags$br(), shiny::tagList(info)
  )
  
  valueBox(
    value = value, 
    caption = caption, 
    icon = icon, 
    color = color, 
    href = href)
  
}

categorizar_edad <- function(d) {
  
  d <- d %>% 
    mutate(
      edad_c = santoku::chop(edad, PARS$edad, labels = santoku::lbl_discrete()),
      edad_c = forcats::fct_recode(edad_c, `80+` = "80 - Inf")   
    ) 
  
  d
  
}

paleta_colores <- function(n = 6) {
  
  # viridisLite::inferno(n, begin = .1, end = .9) 
  viridisLite::cividis(n, begin = .1, end = .9) 
  
}

region_to_factor <- function(x) {
  
  # x <- d$region
  
  xn <- case_when(
    str_detect(x, "Magallanes") ~ "Magallanes",
    str_detect(x, "O’Higgins") ~ "O’Higgins",
    str_detect(x, "Araucanía|Araucania") ~ "Araucanía",
    str_detect(x, "Aysen") ~ "Aysén",
    str_detect(x, "Nuble") ~ "Ñuble",
    str_detect(x, "Biobio") ~ "Biobío",
    str_detect(x, "Rios") ~ "Los Ríos",
    str_detect(x, "Tarapaca") ~ "Tarapacá",
    str_detect(x, "Valparaiso") ~ "Valparaíso",
    TRUE ~ x
  )
  
  # tibble(x, xn, factor(xn, levels = PARS$region_levels))
  
  xn <- factor(xn, levels = PARS$region_levels)
  
  xn
  
}

str_make_id <- function(x){
  
  x %>% 
    str_to_id() %>% 
    str_remove_all("'") %>% 
    stringi::stri_trans_general("Latin-ASCII") %>% 
    str_remove_all("'")
  
}

hc_to_data_frame <- function(hc = grafico_confirmados_diarios()){
  
  series <- hc$x$hc_opts$series
  datas <- map(series, pluck, "data")
  
  names <- map_chr(series, pluck, "name")
  
  res <- map(datas, function(x){
    
    map_df(x, as.data.frame) %>%
      as_tibble()
    
  })
  
  res <- setNames(res, names)
  
  res2 <- map2_df(names, res, ~ mutate(.y, serie = .x, .before = 1))
  
  res2
  
}

comma_1 <- function(x) {
  scales::comma(x, decimal.mark = ",", big.mark = ".", accuracy = 1)
} 

comma_01 <- function(x) {
  scales::comma(x, decimal.mark = ",", big.mark = ".", accuracy = 0.1)
}