Merge pull request #39 from OHDSI/omopviewer

use omopviewer for shiny
OHDSI · Sep 30, 2024 · b5c89a4 · b5c89a4
2 parents 01c8a30 + 4e3874a
commit b5c89a4
Show file tree

Hide file tree

Showing 8 changed files with 5 additions and 989 deletions.
diff --git a/R/shinyDiagnostics.R b/R/shinyDiagnostics.R
@@ -11,16 +11,9 @@
 shinyDiagnostics <- function(result,
                              directory = here::here()){
 
-  file.copy(from = system.file("shiny",
-                            package = "phenotypeR"),
-            to = directory,
-            recursive = TRUE,
-            overwrite = TRUE)
+  rlang::check_installed("omopViewer")
 
-  omopgenerics::exportSummarisedResult(result,
-                                       fileName = "result.csv",
-                                       path = here::here(directory, "shiny", "data"))
-
-  shiny::shinyAppDir(here::here(directory, "shiny"))
+  result |>
+    omopViewer::exportStaticApp(directory = directory)
 
 }
diff --git a/inst/shiny/data/readme.md b/inst/shiny/data/readme.md
diff --git a/inst/shiny/global.R b/inst/shiny/global.R