Random sample data

@robertzk i've added documents, params <- list(...) and the stopifnot condition in the end