fixed presentation of quick etl checks

69226ec8 · kapsner · ce3e0143 · 69226ec8
Commit 69226ec8 authored 5 years ago by kapsner
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 2 deletions
+2 -2
--- a/R/moduleDashboard.R
+++ b/R/moduleDashboard.R
@@ -210,7 +210,7 @@ moduleDashboardServer <- function(input, output, session, rv, input_re){
    })
    outputOptions(output, 'dqa_results', suspendWhenHidden=FALSE)

-    output$dash_quick_etlchecks <- renderDataTable({
+    output$dash_quick_etlchecks <- DT::renderDataTable({
      dat <- quickETLChecks(rv$dqa_descriptive_results)
      renderQuickETL(dat)
    })
@@ -249,7 +249,7 @@ moduleDashboardUI <- function(id){
             conditionalPanel(
               condition = "output['moduleDashboard-dqa_results']",
               box(title = "Quick ETL-Checks: ",
-                   dataTableOutput(ns("dash_quick_etlchecks")),
+                   DT::dataTableOutput(ns("dash_quick_etlchecks")),
                   width = 12
               )
             )