Shiny app: fix examinee-wise plot generation

choi-phd · Apr 22, 2024 · ae3e703 · ae3e703
1 parent fd8ca11
commit ae3e703
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/inst/shiny/server.r b/inst/shiny/server.r
@@ -214,7 +214,7 @@ server <- function(input, output, session) {
         if (input$simulee_id != "") {
           v <- updateLogs(v, sprintf("Created plots for simulee %i", v$simulee_id))
 
-          plot(v$fit, v$simulee_id, type = "audit")
+          plot(v$fit, examinee_id = v$simulee_id, type = "audit")
           p <- recordPlot()
           dev.off()
 
@@ -224,7 +224,7 @@ server <- function(input, output, session) {
             sprintf("Audit trail plot for simulee %i", v$simulee_id)
           )
 
-          plot(v$fit, v$simulee_id, type = "shadow", simple = TRUE)
+          plot(v$fit, examinee_id = v$simulee_id, type = "shadow", simple = TRUE)
           p <- recordPlot()
           dev.off()