REDCapCAST/tests/testthat/helper-ExampleProject_R_2018-06-07_1129.r

REDCap_process_csv <- function(data) {
  #Load Hmisc library
  if (!requireNamespace("Hmisc", quietly = TRUE)) {
    stop("This test requires the 'Hmisc' package")
  }

  Hmisc::label(data$row) <- "Name"
  Hmisc::label(data$redcap_repeat_instrument) <- "Repeat Instrument"
  Hmisc::label(data$redcap_repeat_instance) <- "Repeat Instance"
  Hmisc::label(data$mpg) <- "Miles/(US) gallon"
  Hmisc::label(data$cyl) <- "Number of cylinders"
  Hmisc::label(data$disp) <- "Displacement"
  Hmisc::label(data$hp) <- "Gross horsepower"
  Hmisc::label(data$drat) <- "Rear axle ratio"
  Hmisc::label(data$wt) <- "Weight"
  Hmisc::label(data$qsec) <- "1/4 mile time"
  Hmisc::label(data$vs) <- "V engine?"
  Hmisc::label(data$am) <- "Transmission"
  Hmisc::label(data$gear) <- "Number of forward gears"
  Hmisc::label(data$carb) <- "Number of carburetors"
  Hmisc::label(data$color_available___red) <-
    "Colors Available (choice<-Red)"
  Hmisc::label(data$color_available___green) <-
    "Colors Available (choice<-Green)"
  Hmisc::label(data$color_available___blue) <-
    "Colors Available (choice<-Blue)"
  Hmisc::label(data$color_available___black) <-
    "Colors Available (choice<-Black)"
  Hmisc::label(data$motor_trend_cars_complete) <- "Complete?"
  Hmisc::label(data$letter_group___a) <- "Which group? (choice<-A)"
  Hmisc::label(data$letter_group___b) <- "Which group? (choice<-B)"
  Hmisc::label(data$letter_group___c) <- "Which group? (choice<-C)"
  Hmisc::label(data$choice) <- "Choose one"
  Hmisc::label(data$grouping_complete) <- "Complete?"
  Hmisc::label(data$price) <- "Sale price"
  Hmisc::label(data$color) <- "Color"
  Hmisc::label(data$customer) <- "Customer Name"
  Hmisc::label(data$sale_complete) <- "Complete?"
  #Setting Units


  #Setting Factors(will create new variable for factors)
  data$redcap_repeat_instrument.factor <-
    factor(data$redcap_repeat_instrument, levels <-
             c("sale"))
  data$cyl.factor <-
    factor(data$cyl, levels <- c("3", "4", "5", "6", "7", "8"))
  data$vs.factor <- factor(data$vs, levels <- c("1", "0"))
  data$am.factor <- factor(data$am, levels <- c("0", "1"))
  data$gear.factor <- factor(data$gear, levels <- c("3", "4", "5"))
  data$carb.factor <-
    factor(data$carb, levels <-
             c("1", "2", "3", "4", "5", "6", "7", "8"))
  data$color_available___red.factor <-
    factor(data$color_available___red, levels <-
             c("0", "1"))
  data$color_available___green.factor <-
    factor(data$color_available___green, levels <-
             c("0", "1"))
  data$color_available___blue.factor <-
    factor(data$color_available___blue, levels <-
             c("0", "1"))
  data$color_available___black.factor <-
    factor(data$color_available___black, levels <-
             c("0", "1"))
  data$motor_trend_cars_complete.factor <-
    factor(data$motor_trend_cars_complete, levels <-
             c("0", "1", "2"))
  data$letter_group___a.factor <-
    factor(data$letter_group___a, levels <-
             c("0", "1"))
  data$letter_group___b.factor <-
    factor(data$letter_group___b, levels <-
             c("0", "1"))
  data$letter_group___c.factor <-
    factor(data$letter_group___c, levels <-
             c("0", "1"))
  data$choice.factor <-
    factor(data$choice, levels <- c("choice1", "choice2"))
  data$grouping_complete.factor <-
    factor(data$grouping_complete, levels <-
             c("0", "1", "2"))
  data$color.factor <-
    factor(data$color, levels <- c("1", "2", "3", "4"))
  data$sale_complete.factor <-
    factor(data$sale_complete, levels <- c("0", "1", "2"))

  levels(data$redcap_repeat_instrument.factor) <- c("Sale")
  levels(data$cyl.factor) <- c("3", "4", "5", "6", "7", "8")
  levels(data$vs.factor) <- c("Yes", "No")
  levels(data$am.factor) <- c("Automatic", "Manual")
  levels(data$gear.factor) <- c("3", "4", "5")
  levels(data$carb.factor) <-
    c("1", "2", "3", "4", "5", "6", "7", "8")
  levels(data$color_available___red.factor) <-
    c("Unchecked", "Checked")
  levels(data$color_available___green.factor) <-
    c("Unchecked", "Checked")
  levels(data$color_available___blue.factor) <-
    c("Unchecked", "Checked")
  levels(data$color_available___black.factor) <-
    c("Unchecked", "Checked")
  levels(data$motor_trend_cars_complete.factor) <-
    c("Incomplete", "Unverified", "Complete")
  levels(data$letter_group___a.factor) <- c("Unchecked", "Checked")
  levels(data$letter_group___b.factor) <- c("Unchecked", "Checked")
  levels(data$letter_group___c.factor) <- c("Unchecked", "Checked")
  levels(data$choice.factor) <- c("Choice 1", "Choice 2")
  levels(data$grouping_complete.factor) <-
    c("Incomplete", "Unverified", "Complete")
  levels(data$color.factor) <- c("red", "green", "blue", "black")
  levels(data$sale_complete.factor) <-
    c("Incomplete", "Unverified", "Complete")

  data
}