R/utils.R

In shinipsum: Lorem-Ipsum-Like Helpers for Fast Shiny Prototyping

Defines functions random_ipsum vec_ipsum

vec_ipsum <- function(x){
  sample(shinipsum::lorem_words, x)
}

random_ipsum <- function(nrow, ncol){
  lapply(1:ncol, function(x) vec_ipsum(nrow)) %>%
    do.call(cbind, .) %>%
    as.data.frame()
}

Try the shinipsum package in your browser