R/atualizar_dados.R

In beatrizmilz/mananciais: Base de dados sobre volume operacional em mananciais de abastecimento público na Região Metropolitana de São Paulo (SP - Brasil)

#' Funcao para atualizar dados de mananciais
#'
#' Usando os dados disponíveis no dados_mananciais(),
#' confere quais são os dias faltantes e busca os mesmos
#'
#' @return Uma tibble
#' @export
#'
#' @examples atualizar_dados()
atualizar_dados <- function() {
  data_inicial <- lubridate::as_date("2000-01-01")
  data_final <- Sys.Date()

  intervalo <- lubridate::as_date(data_inicial:data_final) %>%
    tibble::as_tibble()

  dados_mananciais <- dados_mananciais()

  dados_para_obter <- intervalo %>%
    dplyr::filter(!value %in% dados_mananciais$data) %>%
    dplyr::pull()


  if (length(dados_para_obter) == 0) {
    print("Os dados ja estao atualizados, nao foi necessario atualizar")

    dados_mananciais
  } else {
    mananciais <- purrr::map_dfr(dados_para_obter, obter_dia) %>%
      mananciais:::limpar_dados() %>%
      rbind(dados_mananciais) %>%
      dplyr::arrange(desc(data))

    mananciais
  }
}

#' Funcao para checar se é necessário atualizar dados de mananciais
#'
#' Usando os dados disponíveis no dados_mananciais(),
#' confere é necessário atualizar a base
#'
#' @return Uma tibble
#' @export
#'
#' @keywords internal
#'
#' @examples checar_se_necessario_atualizar()
checar_se_necessario_atualizar <- function() {
  data_inicial <- lubridate::as_date("2000-01-01")
  data_final <- Sys.Date()

  intervalo <- lubridate::as_date(data_inicial:data_final) %>%
    tibble::as_tibble()

  dados_mananciais <- dados_mananciais()

  dados_para_obter <- intervalo %>%
    dplyr::filter(!value %in% dados_mananciais$data) %>%
    dplyr::pull()


  if (length(dados_para_obter) == 0) {
    return(FALSE)
  } else {
    return(TRUE)
  }
}