v2.0.0.9122

- refactor: BCG calculation user column select to lower case - elev_m - pslope_nhd - refactor: Rename BCG calculation flag output (previously model experience)
leppott · Dec 1, 2023 · b147360 · b147360
1 parent 0c24c4b
commit b147360
Show file tree

Hide file tree

Showing 6 changed files with 34 additions and 11 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: BCGcalc
 Type: Package
 Title: Biological Condition Gradient, calculator
-Version: 2.0.0.9121
+Version: 2.0.0.9122
 Authors@R: c(
   person("Erik W.", "Leppo", email="Erik.Leppo@tetratech.com", role=c("aut","cre")), 
   person("Jen", "Stamp", email="Jen.Stamp@tetratech.com", role="ctb"),

diff --git a/NEWS b/NEWS
@@ -1,11 +1,19 @@
 BCGcalc-NEWS
 ================
 <Erik.Leppo@tetratech.com>
-2023-11-30 14:43:50.325656
+2023-12-01 08:26:50.27944
 
 <!-- NEWS.md is generated from NEWS.Rmd. Please edit that file -->
 
-    #> Last Update: 2023-11-30 14:43:50.361055
+    #> Last Update: 2023-12-01 08:26:50.298339
+
+# BCGcalc 2.0.0.9122 (2023-12-01)
+
+- refactor: BCG calculation user column select to lower case
+  - elev_m
+  - pslope_nhd
+- refactor: Rename BCG calculation flag output (previously model
+  experience)
 
 # BCGcalc 2.0.0.9121 (2023-11-30)
 

diff --git a/NEWS.md b/NEWS.md
@@ -1,11 +1,19 @@
 BCGcalc-NEWS
 ================
 <Erik.Leppo@tetratech.com>
-2023-11-30 14:43:50.325656
+2023-12-01 08:26:50.27944
 
 <!-- NEWS.md is generated from NEWS.Rmd. Please edit that file -->
 
-    #> Last Update: 2023-11-30 14:43:50.361055
+    #> Last Update: 2023-12-01 08:26:50.298339
+
+# BCGcalc 2.0.0.9122 (2023-12-01)
+
+- refactor: BCG calculation user column select to lower case
+  - elev_m
+  - pslope_nhd
+- refactor: Rename BCG calculation flag output (previously model
+  experience)
 
 # BCGcalc 2.0.0.9121 (2023-11-30)
 

diff --git a/NEWS.rmd b/NEWS.rmd
@@ -21,6 +21,13 @@ knitr::opts_chunk$set(
 cat(paste0("Last Update: ",Sys.time()))
 ```
 
+# BCGcalc 2.0.0.9122 (2023-12-01)
+
+* refactor: BCG calculation user column select to lower case
+    + elev_m
+    * pslope_nhd
+* refactor: Rename BCG calculation flag output (previously model experience)
+
 # BCGcalc 2.0.0.9121 (2023-11-30)
 
 * feature: Add ecoregion L3 to generate index class parameters

diff --git a/inst/shiny-examples/BCGcalc/global.R b/inst/shiny-examples/BCGcalc/global.R
@@ -1,7 +1,7 @@
 # Shiny Global File
 
 # Version ----
-pkg_version <- "2.0.0.9121"
+pkg_version <- "2.0.0.9122"
 
 # Packages----
 # nolint start

diff --git a/inst/shiny-examples/BCGcalc/server.R b/inst/shiny-examples/BCGcalc/server.R
@@ -2123,20 +2123,20 @@ shinyServer(function(input, output) {
   })## UI_colnames
 
   output$UI_bcg_modelexp_user_col_elev <- renderUI({
-    str_col <- "Column, Elevation, m (ELEV_M)"
+    str_col <- "Column, Elevation, m (elev_m)"
     selectInput("bcg_modelexp_user_col_elev"
                 , label = str_col
                 , choices = c("", names(df_import()))
-                , selected = "ELEV_M"
+                , selected = "elev_m"
                 , multiple = FALSE)
   })## UI_colnames
 
   output$UI_bcg_modelexp_user_col_slope <- renderUI({
-    str_col <- "Column, Slope, % (PSLOPE_NHD)"
+    str_col <- "Column, Slope, % (pslope_nhd)"
     selectInput("bcg_modelexp_user_col_slope"
                 , label = str_col
                 , choices = c("", names(df_import()))
-                , selected = "PSLOPE_NHD"
+                , selected = "pslope_nhd"
                 , multiple = FALSE)
   })## UI_colnames
 
@@ -2591,7 +2591,7 @@ shinyServer(function(input, output) {
       n_bad_any <- sum(df_samp_flags[, "flag"], na.rm = TRUE)
 
       # save info
-      write.csv(df_samp_flags, file.path("results", "results_BCG", "_BCG_7modelexp.csv"))
+      write.csv(df_samp_flags, file.path("results", "results_BCG", "_BCG_Sample_FLAGS.csv"))
 
       # Inform user about number of samples outside of experience of model
       msg <- paste0("('NA' if data field not provided in input file).", "\n\n"