19 lines
441 B
R
19 lines
441 B
R
# r_scripts/data_summary.R
|
|
# This script is a simple version for testing the PHP runner.
|
|
|
|
args <- commandArgs(trailingOnly = TRUE)
|
|
data_file_path <- args[1]
|
|
params_json <- args[2]
|
|
|
|
# Just print the received arguments to confirm they are passed correctly.
|
|
cat(jsonlite::toJSON(
|
|
list(
|
|
message = "R script ran successfully!",
|
|
data_file = data_file_path,
|
|
params_received = params_json
|
|
),
|
|
pretty = TRUE,
|
|
auto_unbox = TRUE
|
|
))
|
|
|