reactable2: revert data access method

elong0527 · Apr 11, 2024 · b9ee9fa · b9ee9fa
1 parent e48b160
commit b9ee9fa
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/reactable2.R b/R/reactable2.R
@@ -50,14 +50,15 @@ reactable2 <- function(data,
   if (download) {
     on_click <- paste0("Reactable.downloadDataCSV('", element_id, "')")
 
-    tbl <- htmltools::browsable(
+    htmltools::browsable(
       htmltools::tagList(
         htmltools::tags$button("Download as CSV", onclick = on_click),
         tbl
       )
     )
+  } else {
+    tbl
   }
-  attr(tbl, "data") <- tbl$data
 
 }