# 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
))