inst/virtual_patient_simulator/bs4/patient_selector.R

In CaPO4Sim: A Virtual Patient Simulator in the Context of Calcium and Phosphate Homeostasis

patient_selector <- function() {
  # read the datas folder and 
  # find the number of patients
  data_folder <- paste0(getwd(), "/www/patients_datas")
  file_list <- list.files(data_folder)
  n_patients <- length(file_list)
  
  # generate a random number
  random_patient <- sample(1:n_patients, 1)
  readRDS(file = paste0(data_folder, "/", "patient_", random_patient, ".rds"))
}