R/moduleCompleteness.R

In DQAgui: Graphical User Interface for Data Quality Assessment

# DQAgui - A graphical user interface (GUI) to the functions implemented in the
# R package 'DQAstats'.
# Copyright (C) 2019-2022 Universitätsklinikum Erlangen
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

#' @title module_completeness_server
#'
#' @inheritParams module_atemp_pl_server
#'
#' @return The function returns a shiny server module.
#'
#' @seealso \url{https://shiny.rstudio.com/articles/modules.html}
#'
#' @examples
#' if (interactive()) {
#' rv <- list()
#' shiny::callModule(
#'   module_completeness_server,
#'   "moduleCompleteness",
#'   rv = rv,
#'   input_re = reactive(input)
#' )
#' }
#'
#' @export
#'
# module_completeness_server
module_completeness_server <- function(input, output, session, rv, input_re) {

  observe({
    req(rv$completeness)
    output$comp_missings <- DT::renderDataTable({
      DT::datatable(
        data = rv$completeness,
        options = list(
          dom = "t",
          scrollY = "80vh",
          pageLength = nrow(rv$completeness)),
        rownames = FALSE
      )
    })
  })

}

#' @title module_completeness_ui
#'
#' @param id A character. The identifier of the shiny object
#'
#' @return The function returns a shiny ui module.
#'
#' @seealso \url{https://shiny.rstudio.com/articles/modules.html}
#'
#' @examples
#' if (interactive()) {
#' shinydashboard::tabItems(
#'   shinydashboard::tabItem(
#'     tabName = "completeness",
#'     module_completeness_ui(
#'       "moduleCompleteness"
#'     )
#'   )
#' )
#' }
#'
#' @export
#'
# module_completeness_ui
module_completeness_ui <- function(id) {
  ns <- NS(id)

  tagList(
    fluidRow(
      box(title = "Completeness",
          DT::dataTableOutput(ns("comp_missings")),
          width = 12
      )
    )
  )
}