fixing R checks

OHDSI · Sep 12, 2024 · 8e94769 · 8e94769
1 parent cbb41e0
commit 8e94769
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 1,212 deletions.
diff --git a/R/components-data-viewer.R b/R/components-data-viewer.R
@@ -5,26 +5,30 @@
 #output: download buttons, table, and column selector
 
 
-#' Result Table Viewer
-#'
-#' @param id string
-#' @param downloadedFileName string, desired name of downloaded data file. can use the name from the module that is being used
-#' @param boxTitle the title added to the box 
-#' @family {Utils}
-#' @return shiny module UI
-#' @family {Utils}
-
-filteredDownloadButton <- function(tableId, label = "Download (Filtered)", filename = "filteredData.csv", icon = shiny::icon("download")) {
-  tags$div(class = "col-sm-3",
+filteredDownloadButton <- function(
+    tableId, 
+    label = "Download (Filtered)", 
+    filename = "filteredData.csv", 
+    icon = shiny::icon("download")
+    ) {
+  shiny::tags$div(class = "col-sm-3",
     htmltools::tags$button(
       class = "btn btn-default",
-      tags$i(class = "fas fa-download", role = "presentation", "aria-label" = "download icon"),
+      shiny::tags$i(class = "fas fa-download", role = "presentation", "aria-label" = "download icon"),
       label,
       onclick = sprintf("Reactable.downloadDataCSV('%s', '%s')", tableId, filename)
     )
   )
 }
 
+#' Result Table Viewer
+#'
+#' @param id string
+#' @param downloadedFileName string, desired name of downloaded data file. can use the name from the module that is being used
+#' @param boxTitle the title added to the box 
+#' @family {Utils}
+#' @return shiny module UI
+#' @family {Utils}
 resultTableViewer <- function(
     id = "result-table",
     downloadedFileName = NULL,
@@ -425,7 +429,7 @@ fuzzySearch<- reactable::JS('function(rows, columnIds, filterValue) {
         },
         content = function(file) {
           data <- input$table_state
-          write.csv(data, file)
+          utils::write.csv(data, file)
         }
       )