minor changes

Author: gaelso

R/fct_check_data2.R

@@ -33,14 +33,14 @@
 fct_check_data2 <- function(.usr, .time, .ad, .cs){
 
   ## !! FOR TESTING ONLY
-  # cs <- read_xlsx(path = path, sheet = "c_stocks", na = "NA")
-  # ad <- read_xlsx(path = path, sheet = "AD_lu_transitions", na = "NA")
-  # usr <- read_xlsx(path = path, sheet = "user_inputs", na = "NA")
-  # time <- read_xlsx(path = path, sheet = "time_periods", na = "NA")
   # .usr <- usr
   # .time <- time
   # .ad <- ad
   # .cs <- cs
+  # .usr =  rv$inputs$usr
+  # .time = rv$inputs$time
+  # .ad =   rv$inputs$ad
+  # .cs =   rv$inputs$cs
   ## !!
 
   ## Build checklist

R/mod_tool_server.R

@@ -83,6 +83,7 @@ mod_tool_server <- function(id, rv) {
       # rv$mcs <- list()
       # path <- system.file("extdata/example1-4pools.xlsx", package = "mocaredd")
       # path <- system.file("extdata/example2-with-sims.xlsx", package = "mocaredd")
+      # path <- "/Users/gaelsola/Documents/FAO-2025/missions/2025-12-COG-ZMB NFI and Uncertainty/Uncertainty WS/KEN-2025-UNFCCC-mocaredd-2017-2023.xlsx"
       # .cs <- rv$inputs$cs <- readxl::read_xlsx(path = path, sheet = "c_stocks", na = "NA")
       # .ad <- rv$inputs$ad <- readxl::read_xlsx(path = path, sheet = "AD_lu_transitions", na = "NA")
       # .usr <- rv$inputs$usr <- readxl::read_xlsx(path = path, sheet = "user_inputs", na = "NA")

R/shiny_run_mocaredd.R

@@ -147,6 +147,10 @@ shiny_run_mocaredd <- function(...) {
     shinyjs::useShinyjs(),
     shinyWidgets::useSweetAlert(),
     shiny.i18n::usei18n(i18n),
+    tags$head(HTML(
+      '<!-- 100% privacy-first analytics -->
+      <script data-collect-dnt="true" async src="https://scripts.simpleanalyticscdn.com/latest.js"></script>'
+      )),
     tags$head(includeHTML("plausible.html")),
     tags$head(
       ## Load Plausible tracker