R/get_one_result.R

In aaronpeikert/fromr: Enhance the formr Package so import data from formr is more simple

#' Get one survey from formr
#'
#' \code{get_one_result} is for internal use of \code{get_results}
#' @export
get_one_result <- function(run, survey, items = "") {
  items_to_paste <- paste0("c(", paste0("'", items, "'", collapse =", "), ")")
  text <- stringr::str_c("
                         get_raw_results(list( ## start here with the function
                         run = list(
                         name = '", run, "',
                         sessions = c()
                         ),
                         surveys = list(",
                         survey, " = ", items_to_paste, "
                         )
                         ))", sep="", collapse = ""
  )
  results <- eval(parse(text = text))
  lower_list <- results[[1]]
  result_df <- do.call(rbind, lower_list)
  result_df
}