R/myPackage.R

In keboola/docs-custom-science-example-package: Custom R application skeleton

#' Sample skeleton for custom science - Main application function
#'
#' @import keboola.r.docker.application
#' @export
#' @param datadir Path to data directory.
doSomething <- function(datadir) {
  # read input
  data <- read.csv(file = file.path(datadir, "in/tables/source.csv"));

  # do something
  app <- DockerApplication$new(datadir)
  app$readConfig()
  data['double_number'] <- data['number'] * app$getParameters()$multiplier

  # write output
  write.csv(data, file = file.path(datadir, "out/tables/result.csv"), row.names = FALSE)
}