🐛 small fixes

ecoisilva · ecoisilva · commit 304d262be7bf · 2025-04-24T13:15:12.000+02:00
diff --git a/R/mod_tab_report.R b/R/mod_tab_report.R
@@ -312,6 +312,7 @@ mod_tab_report_server <- function(id, rv) {
     shinyjs::hide(id = "repBox_dist_err")
     shinyjs::hide(id = "repBox_analyses")
     shinyjs::hide(id = "repBox_tables")
+    shinyjs::hide(id = "repBox_meta")
     
     observe({
       req(rv$active_tab == 'report')
@@ -1851,11 +1852,11 @@ mod_tab_report_server <- function(id, rv) {
       if (rv$which_meta == "none") {
         shinyjs::show(id = "section-highlight_dur")
         shinyjs::show(id = "section-highlight_dti")
-        shinyjs::hide(id = "section-repBox_meta")
+        shinyjs::hide(id = "repBox_meta")
       } else {
         shinyjs::hide(id = "section-highlight_dur")
         shinyjs::hide(id = "section-highlight_dti")
-        shinyjs::show(id = "section-repBox_meta")
+        shinyjs::show(id = "repBox_meta")
       }
       
     }) %>% bindEvent(input$build_report)
diff --git a/R/mod_viz.R b/R/mod_viz.R
@@ -866,15 +866,15 @@ mod_viz_server <- function(id, rv) {
             reactable::colDef(
               minWidth = 90, name = "N (area)",
               style = format_num,
-              format = reactable::colFormat(separators = TRUE,
-                                            digits = 1)) },
+              format = reactable::colFormat(
+                separators = TRUE, locale = "en-US", digits = 1)) },
           N_speed = if ("N_speed" %in% names(out_sum)) {
             reactable::colDef(
               name = "N (speed)",
               minWidth = 90,
               style = format_num,
-              format = reactable::colFormat(separators = TRUE,
-                                            digits = 1)) }
+              format = reactable::colFormat(
+                separators = TRUE, locale = "en-US", digits = 1)) }
         ))
       
     }) # end of renderReactable
