provide source data as a dataframe

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