data-raw/test_question/global.R

In takewiki/tsui: user interface elements from shiny,H5,css,js in takewiki solutions

FQuestionId <-rep(1L,4);
FQuestionTxt <-rep('how are you?',4);
FAnswerId <-1L:4L;
FAnswerTxt<-LETTERS[1:4];
data <-data.frame(FQuestionId,FQuestionTxt,FAnswerId,FAnswerTxt,stringsAsFactors = F)

library(tsui);