In Art83/CompPsychQ: Processing web-based forms part of psychiatry.app

knitr::opts_chunk$set(echo = F)

r ev = "oci" %in% params$stages

knitr::asis_output("## OCI-R\\n") # Header that is only shown if print_option == TRUE
print(1:10) # Other stuff that is only executed if print_option == TRUE

files_list <- list.files(path)
if(!"OCI-R.csv" %in% files_list){
  cat("No oci.csv in the folder")
} else {
  df <- read.csv(paste0(path, "/OCI-R.csv"), stringsAsFactors = F)
  res <- get_oci(df)
  print(res)
}

r ev = "moves" %in% params$stages

knitr::asis_output("## MOVES\\n")

if(!"MOVES.csv" %in% files_list){
  cat("No MOVES.csv in the folder")
} else {
  df <- read.csv(paste0(path, "/MOVES.csv"), stringsAsFactors = F)
  res <- get_moves(df)
  print(res)
}