R/GiftConvertSA.R

In arnaud-m/XLUniv: Collection of Excel Workbooks for managing students in a French University

#' Export conversion SA questions to GIFT format
#'
#' @param exdata Data frame of questions
#'
#' @export
#' @examples
#'
#' exdata <- CreateConvertQuestions(10)
#' GiftConvertSA(exdata)
GiftConvertSA <- function(exdata) {
  if(! require("RGIFT")) {
    warning('Cannot ask the question(s): RGIFT not available.')
  }
  ConvertSA <- function(x) {
    x <- sapply(x, trimws)
    GIFTSA(
      sprintf("::Conversion de base n=%s::Convertir le nombre %s écrit en base %s vers la base %s.", x['valueO'], x['valueO'], x['orig'], x['dest']),
      x['valueD']
    )
  }
  apply(exdata, 1, ConvertSA)
  return(invisible(NULL))
}