fixes scatter2

USEPA · Nov 2, 2023 · 76a23f1 · 76a23f1
1 parent f783d1b
commit 76a23f1
Showing 1 changed file with 3 additions and 9 deletions.
diff --git a/R/mod_figures.R b/R/mod_figures.R
@@ -110,6 +110,9 @@ mod_figures_server <- function(id, tadat) {
                    "ActivityStartDateTime", 
                    "TADA.ActivityMediaName", 
                    "ActivityMediaSubdivisionName", 
+                   "TADA.ResultSampleFractionText",
+                   "TADA.MethodSpecificationName",
+                   "TADA.CharacteristicName",
                    depthcols)
 
       react$dat <- tadat$raw %>%
@@ -343,16 +346,7 @@ mod_figures_server <- function(id, tadat) {
       suppressWarnings(TADA::TADA_TwoCharacteristicScatterplot
                        (react$plotdata, 
                         id_cols = "groupname", 
-                        # original 
                         groups = unique(react$plotdata$groupname)))
-                        # groups = c((unique(subset(react$plotdata, react$plotdata$groupname == react$groups[1]))),
-                        #           (unique(subset(react$plotdata, react$plotdata$groupname == react$groups[2]))))))
-                        # groups = c(react$plotdata$groupname == react$groups[1],
-                        #            react$plotdata$groupname == react$groups[2])))
-                        # groups = c(react$plotdata,
-                        #             id_cols = "groupname",
-                        #             groups = c(react$plotdata$TADA.ComparableDataIdentifier[1], 
-                        #                        react$plotdata$TADA.ComparableDataIdentifier[2]))))
       }
     })
   })