R/nom_units.R

In aidandmorrison/UtilsQQ: READING DATA FROM PUBLIC SOURCES LIKE ABS

#' @export
#'

nom_units <- function(sheet, meta) {

  names <- sheet %>%
    select(-1) %>%
    colnames()

  thousand <- function(x){
    new <- x*1000
    new
  }

  percent <- function(x){
    new <- x/100
    new
  }

  for(n in names) {
    print(n)
    var <- meta %>% filter(Variable == n)
    print(var$Uni)

    if(var$Uni == "000"){
      sheet <-sheet %>%
        mutate_at(n, thousand)
    }

    if(var$Uni == "Percent"){
      sheet <- sheet %>%
        mutate_at(n, percent)

    }

  }
sheet

}