R/concerto.qti.responseProcessing.R

In wbuchanan/concerto: Package for Concerto platform test logic R code.

#' @name concerto.qti.responseProcessing 
#' @aliases concerto.qti.responseProcessing
#' @title QTI response processing
#' @description Processes QTI response.
#' @param qtiID QTI object ID or name.
#' @param ini Result of QTI initialization.
#' @param userResponse Test participant response.
#' @param workspaceID Concerto workspace ID where the QTI object is located.
#' @return Named list with elements declared in QTI XML.
#' @author Przemyslaw Lis
#' @examples \dontrun{
#' qti_init <- concerto.qti.initialize(1)
#' user_response <- concerto.template.show(2)
#' rp <- concerto.qti.responseProcessing(1, qti_init, user_response)
#' }
#' @export
#' 

concerto.qti.responseProcessing <- function(qtiID, ini, userResponse, 
					    workspaceID = concerto$workspaceID) {
    print(paste("response processing of QTI #", workspaceID, ":", qtiID, "...", sep = ""))
    if (!is.list(ini)) 
        stop("'initialization variable' must be a list!")
    
    if (!is.list(userResponse)) 
        stop("'user response variable' must be a list!")
    
    qti <- concerto.qti.get(qtiID, workspaceID = workspaceID)
    if (dim(qti)[1] == 0) 
        stop(paste("QTI #", workspaceID, ":", qtiID, " not found!", sep = ""))
    
    result <- ini
    if (length(userResponse) > 0) {
        for (i in ls(userResponse)) {
            result[[i]] <- userResponse[[i]]
        }
    }
    eval(parse(text = qti[1, "response_proc_r_code"]))
    
    return(result)
}