#17 remove data name

jeffreyad · jeffreyad · commit b21e1c12b48f · 2025-03-12T14:45:39.000Z
diff --git a/functions/print_df.R b/functions/print_df.R
@@ -4,8 +4,6 @@ library(reactablefmtr)
 print_df <- function(dataset, n = 10) {
   out <- dataset
 
-  text <-  paste0("Sample Print of ", deparse(substitute(dataset)), " Data")
-
   reactable(
     head(out, n),
     compact = TRUE,
@@ -23,5 +21,5 @@ print_df <- function(dataset, n = 10) {
       cellPadding = "8px"
     )
   ) %>% 
-    add_title(text)
+    add_title("Sample of Data")
 }

Original file line number	Diff line number	Diff line change
`@@ -4,8 +4,6 @@ library(reactablefmtr)`
`4`	`4`	`print_df <- function(dataset, n = 10) {`
`5`	`5`	`out <- dataset`
`6`	`6`
`7`		`- text <- paste0("Sample Print of ", deparse(substitute(dataset)), " Data")`
`8`		`-`
`9`	`7`	`reactable(`
`10`	`8`	`head(out, n),`
`11`	`9`	`compact = TRUE,`
`@@ -23,5 +21,5 @@ print_df <- function(dataset, n = 10) {`
`23`	`21`	`cellPadding = "8px"`
`24`	`22`	`)`
`25`	`23`	`) %>%`
`26`		`- add_title(text)`
	`24`	`+ add_title("Sample of Data")`
`27`	`25`	`}`