In sbg/biocompute: Create and Manipulate BioCompute Objects

knitr::opts_chunk$set(echo = FALSE, comment = NA, linewidth = linewidth)

library("knitr")
if (wrap) {
  hook_output <- knit_hooks$get("output")
  knit_hooks$set(output = function(x, options) {
    # this hook is used only when the linewidth option is not NULL
    if (!is.null(n <- options$linewidth)) {
      x <- knitr:::split_lines(x)
      # any lines wider than n should be wrapped
      if (any(nchar(x) > n)) x <- strwrap(x, width = n)
      x <- paste(x, collapse = "\n")
    }
    hook_output(x, options)
  })
}