cleaning up pheval

OHDSI · Jul 26, 2023 · 1ff96fa · 1ff96fa
1 parent 2a72ff8
commit 1ff96fa
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/R/helpers-componentsCreateCustomColDefList.R b/R/helpers-componentsCreateCustomColDefList.R
@@ -65,6 +65,7 @@ createCustomColDefList <- function(rawColNames, niceColNames = NULL,
 
 # examples
 # Define custom column definitions
+# mydf = data.frame(raw = c("name", "age", "country"))
 # customColDefs <- createCustomColDefList(
 #   rawColNames = mydf$raw,
 #   niceColNames = c("Name", "Age", "Country"),

diff --git a/R/phevaluator-main.R b/R/phevaluator-main.R
@@ -438,15 +438,20 @@ phevaluatorServer <- function(
                                  html = T
                                  ),
         sql = reactable::colDef(show = F),
-        json = reactable::colDef(show = F)
+        json = reactable::colDef(show = F),
+        startDate = reactable::colDef(show = F),
+        startDate.1 = reactable::colDef(show = F),
+        endDate = reactable::colDef(show = F),
+        endDate.1 = reactable::colDef(show = F)
+
       )
 
       #define custom column definitions and render the result table
       customColDefs <- utils::modifyList(phevalColList, buttonColDefs)
 
 
       resultTableServer(id = "algorithmPerformanceResultsTable",
-                        df = dataAlgorithmPerformance(),
+                        df = dataAlgorithmPerformance,
                         colDefsInput = customColDefs,
                         downloadedFileName = "algorithmPerformanceResultsTable-")