integration of completeness checks

DESCRIPTION

@@ -21,3 +21,4 @@ Imports:
 Suggests: 
     testthat,
     processx
+RoxygenNote: 6.1.1

inst/application/_utilities/RMD/DQA_report.Rmd

@@ -55,12 +55,20 @@ renderDataMap(rv$datamap$target_data)
 renderDataMap(rv$datamap$source_data)
 ```
 
-# ETL Checks
+# Completeness 
+
+## ETL Checks
 
 ```{r results='asis'}
 kableTable(rv$checks$etl)
 ```
 
+# Missings
+
+```{r results='asis'}
+kableTable(rv$completeness)
+```
+
 # Conformance Checks
 
 ## Value Conformance
@@ -69,6 +77,7 @@ kableTable(rv$checks$etl)
 kableTable(rv$checks$value_conformance)
 ```
 
+
 \newpage
 
 # Detailed Descriptive Analysis

inst/application/server.R

@@ -97,7 +97,8 @@ shiny::shinyServer(function(input, output, session) {
                 shinydashboard::menuItem("Plausibility Checks", tabName = "tab_plausibility", icon = icon("check-circle"),
                                          shinydashboard::menuSubItem("Atemporal Plausibility", tabName = "tab_atemp_plausibility"),
                                          shinydashboard::menuSubItem("Uniqueness Plausibility", tabName = "tab_unique_plausibility")),
-                shinydashboard::menuItem("Visualizations", tabName = "tab_visualizations", icon = icon("chart-line")),
+                shinydashboard::menuItem("Completeness", tabName = "tab_completeness", icon = icon("chart-line")),
+                #shinydashboard::menuItem("Visualizations", tabName = "tab_visualizations", icon = icon("chart-line")),
                 shinydashboard::menuItem("Reporting", tabName = "tab_report", icon = icon("file-alt"))
             )
         })
@@ -121,9 +122,14 @@ shiny::shinyServer(function(input, output, session) {
     shiny::callModule(DQAgui::moduleUniquePlausibilityServer, "moduleUniquePlausibility", rv, input_re=reactive({input}))
 
     ########################
-    # tab_visualization
+    # tab_completeness
     ########################
-    shiny::callModule(DQAgui::moduleVisualizationsServer, "moduleVisulizations", rv, input_re=reactive({input}))
+    shiny::callModule(DQAgui::moduleCompletenessServer, "moduleCompleteness", rv, input_re=reactive({input}))
+
+    # ########################
+    # # tab_visualization
+    # ########################
+    # shiny::callModule(DQAgui::moduleVisualizationsServer, "moduleVisulizations", rv, input_re=reactive({input}))
 
     ########################
     # tab_report

inst/application/ui.R

@@ -68,9 +68,13 @@ shiny::shinyUI(shiny::tagList(shinydashboard::dashboardPage(skin = "black",
                                                                                         DQAgui::moduleUniquePlausibilityUI("moduleUniquePlausibility")
                                                                 ),
 
-                                                                shinydashboard::tabItem(tabName = "tab_visualizations",
-                                                                                        DQAgui::moduleVisualizationsUI("moduleVisulizations")
+                                                                shinydashboard::tabItem(tabName = "tab_completeness",
+                                                                                        DQAgui::moduleCompletenessUI("moduleCompleteness")
                                                                 ),
+#
+#                                                                 shinydashboard::tabItem(tabName = "tab_visualizations",
+#                                                                                         DQAgui::moduleVisualizationsUI("moduleVisulizations")
+#                                                                 ),
 
                                                                 shinydashboard::tabItem(tabName = "tab_report",
                                                                                         DQAgui::moduleReportUI("moduleReport")