if (FALSE) {
fp <- system.file("extdata", "lateformeeting.csv", package = "rrefine")
refine_upload(fp, project.name = "lfm")
ops <-
list(
op = "core/text-transform",
engineConfig = list(mode = "row-based", facets = list()),
columnName = "was i on time for work",
expression = "value.toUppercase()",
onError = "set-to-blank")
refine_operations(project.name = "lfm", operations = list(ops), verbose = TRUE)
}
Run the code above in your browser using DataLab