R/nom_units.R

#' @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

}
aidandmorrison/UtilsQQ documentation built on May 22, 2019, 4:39 p.m.