Report Added

.Rproj.user/178A6739/sources/prop/A1AE5A83

@@ -1,6 +1,6 @@
 {
     "source_window_id": "",
     "Source": "Source",
-    "cursorPosition": "23,0",
+    "cursorPosition": "451,32",
-    "scrollLine": "16"
+    "scrollLine": "442"
 }

.Rproj.user/178A6739/sources/session-99529da2/FE6BB309

@@ -12,15 +12,15 @@
     "properties": {
         "source_window_id": "",
         "Source": "Source",
-        "cursorPosition": "23,0",
+        "cursorPosition": "451,32",
-        "scrollLine": "16"
+        "scrollLine": "442"
     },
     "folds": "",
-    "lastKnownWriteTime": 1686050157,
+    "lastKnownWriteTime": 1686050585,
     "encoding": "UTF-8",
     "collab_server": "",
     "source_window": "",
-    "last_content_update": 1686050157531,
+    "last_content_update": 1686050585975,
     "read_only": false,
     "read_only_alternatives": []
 }

.Rproj.user/178A6739/sources/session-99529da2/FE6BB309-contents

@@ -325,8 +325,7 @@ server <- function(input, output) {
   
   # Model Selection. Using functions. In production these are to be converted to APIs
   selected_model <- reactive({
-    req(input$start_model_selection,
+    req(input$start_model_selection,!is.null(dataset_with_eco()))
-        !is.null(dataset_with_eco()))
     model_sel(dff = dataset_with_eco())
   })
   

app.R

@@ -325,8 +325,7 @@ server <- function(input, output) {
   
   # Model Selection. Using functions. In production these are to be converted to APIs
   selected_model <- reactive({
-    req(input$start_model_selection,
+    req(input$start_model_selection,!is.null(dataset_with_eco()))
-        !is.null(dataset_with_eco()))
     model_sel(dff = dataset_with_eco())
   })