Fix: Add ROBINS-E case for manual data entry in app.R

Agent-Logs-Url: https://github.com/mcguinlu/robvis/sessions/bba159fe-a13e-4934-a8d8-8bc8a9e5dbf9

Co-authored-by: mcguinlu <41202585+mcguinlu@users.noreply.github.com>

Author: Copilot

robvisapp/app.R

@@ -993,6 +993,23 @@ server <- function(session, input, output) {
       rv$new_row = rv$data
     }
 
+    if (input$tool == "ROBINS-E") {
+      rv$data = data.frame(
+        Study   = "Click to edit",
+        D1      = "Click to edit",
+        D2      = "Click to edit",
+        D3      = "Click to edit",
+        D4      = "Click to edit",
+        D5      = "Click to edit",
+        D6      = "Click to edit",
+        D7      = "Click to edit",
+        Overall = "Click to edit",
+        Weights = 1,
+        stringsAsFactors = FALSE
+      )
+      rv$new_row = rv$data
+    }
+    
 
 
   })