devtools::check

DESCRIPTION

@@ -14,7 +14,6 @@ Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.1
 Suggests: dv.manager (>= 2.1.4), jsonlite, rmarkdown, testthat (>=
         3.0.0), shinytest2, devtools, knitr, tibble, utils
-
 Config/testthat/edition: 3
 Config/testthat/parallel: false
 Imports: shiny (>= 1.7.1),dplyr (>= 1.0.7), purrr (>= 0.3.4),

R/mod_export_count_table.R

@@ -14,13 +14,13 @@ EXP <- poc(
   )
 )
 
-#' @describeIn mod_export_counttable_UI
 #' Create user interface for the export count table shiny module of \pkg{dv.tables}
 #'
 #' @param module_id `[character(1)]` A unique ID string to create a namespace. Must match the ID of
-#'   \code{mod_exp_listings_server()}.
+#'   \code{mod_export_counttable_server()}.
 #'
 #' @return A shiny \code{uiOutput} element.
+#' @describeIn mod_export_counttable_UI This function creates the user interface for the export count table shiny module.
 #' @keywords internal
 mod_export_counttable_UI <- function(module_id) { # nolint
 
@@ -40,17 +40,15 @@ mod_export_counttable_UI <- function(module_id) { # nolint
 }
 
 
-#' @describeIn mod_export_counttable_server
 #' Server logic for the export count table
 #'
 #' @param module_id The ID for the event count module instance.
 #' @param dataset A reactive list containing dataset containing the event data
 #' and other meta data
-#' @param intended_use_label Either a string indicating the intended use for export, or
-#' NULL. The provided label will be displayed prior to the download and will also be included in the exported file.
+#' @inheritParams hierarchical_count_table_server
 #'
 #' @return Event dataset downloaded as a excel
-#'
+#' @describeIn mod_export_counttable_server This function handles the server logic for the export count table.
 #' @keywords internal
 mod_export_counttable_server <- function(module_id, dataset,
                                          intended_use_label) {

R/mod_hierarchical_count_table.R

@@ -462,6 +462,9 @@ hierarchical_count_table_ui <- function(id) {
 #' @param default_group `character(1)|NULL`
 #' A default value for the group variable (optional).
 #'
+#' @param intended_use_label Either a string indicating the intended use for export, or
+#' NULL. The provided label will be displayed prior to the download and will also be included in the exported file.
+#'
 #' @return A reactive value containing the list of subjects in the clicked cell, if applicable.
 #'
 #' @export

R/utils-export_table.R

@@ -71,7 +71,7 @@ preprocess_download_table <- function(count_table) {
         sep = " \\(",
         remove = TRUE,
         fill = "right"
-      ) %>%
+      ) |>
       dplyr::mutate(dplyr::across(dplyr::ends_with("_per"), ~ sub(")", "", . )))
   }, .init = excelfile)