R/daos-BaseExcelDao.R

In dzhw/variableMetadataPreparation: What the Package Does (One Line, Title Case)

BaseExcelDao <- R6::R6Class("BaseExcelDao", # nolint
  private = list(
    trim = function(x) {
      trimws(x, which = c("both"))
    },
    delete_na_cols_and_rows = function(excel) {
      na_col <- stringr::str_detect(colnames(excel), "NA.")
      na_row <- apply(excel, 1, function(x) all(is.na(x)))
      return(excel[!na_row, !na_col])
    },
    read_and_trim_excel_sheet = function(path, sheet) {
      # read excel
      excel <- readxl::read_xlsx(path, sheet = sheet, col_types = "text")
      # remove multiple, leading and trailing whitespaces
      excel <- data.frame(lapply(excel, private$trim), stringsAsFactors = FALSE)
      # delete NA rows and columns
      excel <- private$delete_na_cols_and_rows(excel)
      return(excel)
    },
    create_vector = function(comma_separated_string){
      create_vector(comma_separated_string)
      },
    trim_vector_cols = function(excel, colnames) {
      cbind(excel[, !(names(excel) %in% colnames)],
        lapply(excel[colnames],
          FUN = function(x) {
            # remove whitespaces
            gsub(pattern = "\\s+", replacement = "", x = x)
            # replace "." by ","
            gsub(pattern = ".", replacement = ",", x = x, fixed = TRUE)
          }
        ),
        stringsAsFactors = FALSE
      )
    }
  )
)