diff --git a/R/module_data_summary.R b/R/module_data_summary.R index 31f52fe5be..6c1d169a8c 100644 --- a/R/module_data_summary.R +++ b/R/module_data_summary.R @@ -119,7 +119,10 @@ srv_data_summary <- function(id, teal_data) { collapse = ", ", shQuote(summary_table()[is_unsupported, "dataname"]), " (", - vapply(summary_table()[is_unsupported, "dataname"], function(x) typeof(teal_data()[[x]]), character(1L)), + vapply( + summary_table()[is_unsupported, "dataname"], + function(x) typeof(teal_data()[[x]]), character(1L) + ), ")" ) ),