misc: Miscellaneous functions

ipak <- function(pkg) {
  new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
  if (length(new.pkg)) {
    install.packages(new.pkg, dependencies = TRUE)
  }
  suppressPackageStartupMessages(sapply(pkg, require, character.only = TRUE))
}

pkg_list <- c(
  "readxl",
  "tidyverse",
  "openxlsx",
  "here",
  "fs",
  "janitor",
  "glue"
)

ipak(pkg_list)

#' # Criando dos dados de exemplos
#'
#' Usaremos o dataset `mtcars` como dados de exemplo para salvar em nossas planilhas. Esse dataset é automaticamente carregado com o `{tidyverse}`. A única modificação que faremos nele é passar os nomes das linhas para uma nova coluna.
#'
## ------------------------------------------------------------------------------------------------------------------------
df_mtcars <-
  mtcars %>%
  rownames_to_column("car")

head(df_mtcars)

#' # Salvando os dados de exemplo
#'
#' Primeiro, devemos criar dois diretórios para evitar a bagunça com os arquivos. Teremos um diretório para os arquivos em `.xlsx` e outro para os arquivos `.csv`.
#'
## ------------------------------------------------------------------------------------------------------------------------
dir_xlsx <- dir_create("inst/xlsx-examples")

#' O próximo passo é escrever o `mtcars` 10 vezes dentro de cada arquivo `.xlsx`. Os laços `for` abaixo vão fazer esse trabalho.
#'
## ------------------------------------------------------------------------------------------------------------------------
n_workbook <- 10

n_sheet <- 10

format_index <- function(index) {
  formated_index <- formatC(x = index, digits = 2, flag = "0", format = "d")
  return(formated_index)
}

for (i in 1:n_workbook) {
  i_formatted <- format_index(i)

  workbook_name_i <- glue("mtcars_workbook_", i_formatted)

  message("\n", glue("Criando workbook {workbook_name_i}"), "\n")

  workbook_i <- createWorkbook(workbook_name_i)

  for (j in 1:n_sheet) {
    j_formatted <- format_index(j)

    sheet_name_j <- glue("mtcars_sheet_", j_formatted)

    addWorksheet(wb = workbook_i, sheetName = sheet_name_j)

    message(glue("Escrevendo dados na sheet {sheet_name_j} do workbook {workbook_name_i}"))

    writeData(wb = workbook_i, sheet = sheet_name_j, x = df_mtcars)
  }

  workbook_name_to_save <- glue(dir_xlsx, "/", workbook_name_i, ".xlsx")

  message("\n", glue("Salvando {workbook_name_i} em {workbook_name_to_save}"), "\n")

  saveWorkbook(wb = workbook_i, file = workbook_name_to_save)
}

#' Conferindo os arquivos:
#'
## ------------------------------------------------------------------------------------------------------------------------
dir_ls(path = dir_xlsx, regexp = "\\.xlsx$")