inst/testdata/workflow_animals/scripts/determine_animal_cuteness.R

library(tibble)

design <- jsonlite::read_json(inputs[[1]], simplifyVector = TRUE)

animal_cuteness <- tibble(
  animal = design$animal,
  cuteness = rgamma(design$n_animals, 1, 1 / design$cuteness_mean)
)

readr::write_csv(animal_cuteness, outputs[[1]])
komparo/certigo documentation built on May 22, 2019, 5:30 p.m.