R/exportar_dados.R

In maykongpedro/plantiosflorestais: Base De Dados Dos Mapeamentos Publicos De Plantios Florestais Disponiveis No Brasil

#' Exportar bases em formato .xlsx (Excel Files).
#'
#' Exporta as duas bases em planilhas distintas de uma pasta de trabalho excel.
#'
#' @param caminho_para_salvar_bases caminho da pasta para salvar o arquivo, como
#' "C:/documentos/" ou "./" para savar no projeto ativo
#' @param ... parametros adicionais para a exportacao
#'
#' @return invisivel
#' @export
#'
#' @examples
exportar_xlsx <- function(caminho_para_salvar_bases, ...){

    # Bases
    map_muni <- plantiosflorestais::mapeamentos_municipios
    map_uf <- plantiosflorestais::mapeamentos_estados

    # Gerar e nomear lista com as bases
    bases <- list(map_muni, map_uf)
    names(bases) <- c("mapeamentos_municipios", "mapeamentos_estados")


    # Nome padrão do arquivo
    nome_arquivo <- paste0(caminho_para_salvar_bases,
                             "mapeamentos_plantios_florestais",
                             ".xlsx")

    # Exportar base
    bases %>%
        writexl::write_xlsx(nome_arquivo, ...)

}

#' Exportar bases em formato .csv separado por ';' e com enconding UTF-8.
#'
#' @param caminho_para_salvar_bases caminho da pasta para salvar o arquivo, como
#' "C:/documentos/" ou "./" para savar no projeto ativo
#' @param ... parametros adicionais para a exportacao do csv
#'
#' @return invisivel
#' @export
#'
#' @examples
exportar_csv <- function(caminho_para_salvar_bases, ...){

    # Bases
    map_muni <- plantiosflorestais::mapeamentos_municipios
    map_uf <- plantiosflorestais::mapeamentos_estados

    # Gerar nome arquivo de municípios
    caminho_base_muni <- paste0(caminho_para_salvar_bases,
                                "mapeamentos_municipios",
                                ".csv")


    # Gerar nome arquivo de estados
    caminho_base_estados <- paste0(caminho_para_salvar_bases,
                                   "mapeamentos_estados",
                                   ".csv")


    # Exportar bases
    readr::write_csv2(map_muni, file = caminho_base_muni,...)
    readr::write_csv2(map_uf, file = caminho_base_estados,...)

}