library(formr)
source("../apikey.R")
formr_api_authenticate(host = "https://diagnostik.karneboge.de/api", verbose = F)

daten_dsf=formr_api_results(
  run_name = "Schmerzfragebogen",
  c("dsf1","dsf2"),
  compute_scales = FALSE,
  join = TRUE,
  remove_test_sessions = TRUE,
  verbose = FALSE
)
names(daten_dsf) <- gsub("_dsf1$|_dsf2$", "", names(daten_dsf))



formr_api_logout(verbose = FALSE)