Update server.R by adding local =TRUE when sourcing the sampling script

WorldHealthOrganization · Nov 21, 2024 · 83931cd · 83931cd
1 parent b1c2fda
commit 83931cd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/server.R b/server.R
@@ -910,7 +910,7 @@ server <- function(input, output, session) {
       site_name <<-input$site_name
       survey_year <<-input$input_year
       #
-      source(paste0(getwd(),'/scripts/11_school_sampling.R'))
+      source(paste0(getwd(),'/scripts/11_school_sampling.R'), local = TRUE)
       ###Zipping the reports
       files2zip <- dir('sampling outputs', full.names = TRUE)
       zip(zipfile = 'sampling outputs', files = files2zip)