Updated UI, set up options section

kylehamilton · Sep 18, 2015 · c94a188 · c94a188
1 parent 20aa55b
commit c94a188
Show file tree

Hide file tree

Showing 2 changed files with 92 additions and 69 deletions.
diff --git a/inst/IRT/server.R b/inst/IRT/server.R
@@ -1,10 +1,10 @@
-# library(shiny)
-# library(shinyAce)
-# library(psych)
-# library(CTT)
-# library(ltm)
-# library(beeswarm)
-# library(parallel)
+library(shiny)
+library(shinyAce)
+library(psych)
+library(CTT)
+library(ltm)
+library(beeswarm)
+library(parallel)
 
 shinyServer(function(input, output) {
 
@@ -130,8 +130,8 @@ shinyServer(function(input, output) {
                  list(result = result, est = est)
 
              } else if (input$type == "2PL") {
-
-                 result <- ltm(dat ~ z1)
+                  result <- ltm(dat ~ z1)
+                  # result <- ltm(dat ~ z1, control = list(method = input$optimmethod, verbose=TRUE))
                  est <- factor.scores(result)
                  list(result = result, est = est)
 
@@ -891,6 +891,10 @@ output$downloaddistPlot2 <- downloadHandler(
 output$info3.out <- renderPrint({
   info3()
 })
+################################################
+# server.R and ui.R connection
+################################################
+output$optimmethod.out <- renderPrint({ input$optimmethod })
 
 # R session info