fork download 
  1. if (interactive()) {
  2.  
  3.  
  4.   server <- function(input, output) {
  5.     observeEvent(input$goButton, {
  6.       library(shiny)
  7.       library(shinyjs)
  8.       library(CTT)
  9.       library(TAM)
  10.       library(ltm)
  11.       library(difR)
  12.  
  13.  
  14.  
  15.  
  16.  
  17.       output$contents <- renderTable({
  18.         # input$file1 will be NULL initially. After the user selects
  19.         # and uploads a file, it will be a data frame with 'name',
  20.         # 'size', 'type', and 'datapath' columns. The 'datapath'
  21.         # column will contain the local filenames where the data can
  22.         # be found.
  23.         inFile1 <- input$file1
  24.  
  25.         if (is.null(inFile))
  26.           return(NULL)
  27.  
  28.         d1<-read.csv(inFile$datapath, header = input$header)
  29.       })
  30.       output$contents <- renderTable({
  31.         # input$file1 will be NULL initially. After the user selects
  32.         # and uploads a file, it will be a data frame with 'name',
  33.         # 'size', 'type', and 'datapath' columns. The 'datapath'
  34.         # column will contain the local filenames where the data can
  35.         # be found.
  36.         inFile2 <- input$file2
  37.  
  38.         if (is.null(inFile))
  39.           return(NULL)
  40.  
  41.         d2<-read.csv(inFile$datapath)
  42.       })
  43.       options(max.print=1000000)
  44.       d3<-as.list(d2)
  45.  
  46.       myScore=score(d1,d3,output.scored=T)
  47.       mo1<-rasch(myScore$scored)
  48.       mo2<-ltm(myScore$scored~z1,IRT.param = TRUE)
  49.  
  50.       descript1<-descript(myScore$scored,n.print = 1000000)
  51.       output$des1<-renderText({descript1$sample})
  52.       }
  53.  
  54.     )
  55.  
  56.  
  57.     }   
  58. }
  59.  
Success #stdin #stdout 0.21s 39120KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/JgU55w
language:
R (R 3.5.2)
created:
3 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!