Commit aa5ad2a4 authored by Holger Brandl's avatar Holger Brandl

added table_brower wrapper around datatable()

parent 3efa5091
......@@ -458,4 +458,9 @@ se <- function(x) sd(x, na.rm=TRUE) / sqrt(sum(!is.na(x)))
## inspired by http://stackoverflow.com/questions/8343509/better-error-message-for-stopifnot
assert <- function (expr, error) {
if (! expr) stop(error, call. = FALSE)
}
\ No newline at end of file
}
### table rendering
table_browser <- function(df){
datatable(df, filter = "bottom", extensions = 'Buttons', options = list( dom = 'Bfrtip', buttons = c('copy', 'csv', 'excel')))
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment