mini fix

ShinyUI_V1/main_v100.R

@@ -103,7 +103,10 @@ server <- function(input, output) {
     input$update,
     input$method
   )
-  predictedInput <- renderText(input$predVar)
+  predictedInput <- eventReactive(
+    input$update,
+    input$predVar
+  )
   output$MLView <- renderPrint({
       t <- subset(names(datasetInput()), !(names(datasetInput()) %in% predictedInput()))
       cat(paste(" Predicted Variable is: ", predictedInput()), "\n",