R/quick_view.r

In tokenbrowser: Create Full Text Browsers from Annotated Token Lists

#' View a browser (HTML) in the R viewer
#'
#' @param url An URL, created with *_browser
#'
#' @export
#' @examples
#' url = create_browser(sotu_data$tokens, sotu_data$meta, token_col = 'token', header = 'Speeches')
#'
#' ## the url
#' \donttest{
#' view_browser(url)   ## view browser in the Viewer
#' }
view_browser <- function(url) {
  viewer = getOption("viewer")
  if (!is.null(viewer))
    viewer(url)
  else
    if (interactive()) utils::browseURL(url)
}