Remove line for ccdR fix, to be merged to dev soon

USEPA · Jun 5, 2024 · 216e7d4 · 216e7d4
1 parent 986facd
commit 216e7d4
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/R/tcplQueryAPI.R b/R/tcplQueryAPI.R
@@ -39,7 +39,6 @@ tcplQueryAPI <- function(resource = "data", fld = NULL, val = NULL, return_flds
 
     # unlist logc to conc
     dat <- dat %>% rowwise() %>% mutate(conc = list(10^unlist(logc))) %>% as.data.table()
-    if(tolower(fld) != "m4id") dat <- dat %>% unnest(cols = c("resp", "logc", "flag", "mc6MthdId")) %>% as.data.table()
 
   } else if (resource == "assay") {