R/loremIpsum.R

In inSileco/letiRmisc: inSileco Miscellaneous Functions

#' Lorem ipsum.
#'
#' Returns a common form of the Lorem ipsum text an optionally a subset of it.
#'
#' @param n the number of words to be kept.
#'
#' @return
#' A character string with the desired piece of lorem ipsum.
#'
#' @references
#' <https://en.wikipedia.org/wiki/Lorem_ipsum>
#'
#' @export
#' @examples
#' loremIpsum(5)


loremIpsum <- function(n = NULL) {
    out <- loremText()
    if (!is.null(n)) {
        tmp <- unlist(strsplit(loremIpsum(), split = " "))
        tmp <- tmp[!tmp %in% c("", "\n")]
        if (n <= length(tmp)) {
            paste(tmp[seq_len(n)], collapse = " ")
        } else {
            paste(rep(tmp, length.out = n), collapse = " ")
        }
    } else out
}

loremText <- function() {
 "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod
  tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam,
  quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo
  consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse
  cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non
  proident, sunt in culpa qui officia deserunt mollit anim id est laborum.

  Curabitur pretium tincidunt lacus. Nulla gravida orci a odio. Nullam varius,
  turpis et commodo pharetra, est eros bibendum elit, nec luctus magna felis
  sollicitudin mauris. Integer in mauris eu nibh euismod gravida. Duis ac tellus
  et risus vulputate vehicula. Donec lobortis risus a elit. Etiam tempor. Ut
  ullamcorper, ligula eu tempor congue, eros est euismod turpis, id tincidunt
  sapien risus a quam. Maecenas fermentum consequat mi. Donec fermentum.
  Pellentesque malesuada nulla a mi. Duis sapien sem, aliquet nec, commodo eget,
  consequat quis, neque. Aliquam faucibus, elit ut dictum aliquet, felis nisl
  adipiscing sapien, sed malesuada diam lacus eget erat. Cras mollis scelerisque
  nunc. Nullam arcu. Aliquam consequat. Curabitur augue lorem, dapibus quis,
  laoreet et, pretium ac, nisi. Aenean magna nisl, mollis quis, molestie eu,
  feugiat in, orci. In hac habitasse platea dictumst.
  "
}