R/buildItem.R

In chi2labs/CATdemo: CATdemo

#'@title buildItem
#'@description Crea item para ser presentado en el framework Shiny
#'@param itemCodigo codigo del item, puede ser un vector
#'@export
buildItem = function(itemCodigo){
  
  ## descargo item info
  load(system.file("itemInfo.rda", package="CATdemo"));
  miItem <- itemInfo[which(itemInfo$ItemCodigo %in% itemCodigo), ];
  ItemEnunciadoRaw <- miItem$ItemEnunciado

  ## descargo opciones de respuesta
  load(system.file("ItemOpcion.rda", package="CATdemo"));
  ItemOpcion <- ItemOpcion[which(ItemOpcion$ItemCodigo %in% itemCodigo), ];

  myFile <- paste0(tempdir(), "/", itemCodigo, ".html")
  sink(myFile)
    cat(miItem$ItemEnunciado)
  sink()
  
  miItem$ItemEnunciado = gsub('\\\\n', ' ', miItem$ItemEnunciado)
  miItem$ItemEnunciado = gsub('\\\\r', ' ', miItem$ItemEnunciado)
  miItem$ItemEnunciado = gsub('\\\\t', ' ', miItem$ItemEnunciado)

  list(Item=miItem,
       myFile=myFile,
       ItemEnunciadoRaw = ItemEnunciadoRaw,
       ItemEnunciado = miItem$ItemEnunciado,
       ItemOpcion = ItemOpcion)
}