Commit 3dd71138 authored by Holger Brandl's avatar Holger Brandl

added all_unique

parent 4cc18b0e
......@@ -562,6 +562,8 @@ assert <- function (expr, error) {
if (! expr) stop(error, call. = FALSE)
}
all_unique = function(elements) length(unique(elements)) == length(elements)
### table rendering
table_browser <- function(df, caption=deparse(substitute(df)), ...){
datatable(df, filter = "bottom", extensions = 'Buttons', options = list(dom = 'Bfrtip', buttons = c('copy', 'csv', 'excel')), caption = caption, ...)
......
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