R/view_stf_help.R

In jjesusfilho/stf: Provides functions to collect and manipulate Brazilian's Supreme Court decisions

#' Displays STF's help page on browser.
#'
#' @keywords stf, help
#' @return This function has only a side effect, it doesn't return any object or file.
#' @examples
#' \dontrun{
#' view_stf_help()
#' }
#'
#' @export
view_stf_help <- function() {
  url <- "http://www.stf.jus.br/portal/cms/verTexto.asp?servico=jurisprudenciaPesquisaGeral&pagina=ajudaPesquisaJurisprudencia&popup=S"

  viewer <- getOption("viewer")
  if (!is.null(viewer)) {
    viewer(url)
  } else {
    utils::browseURL(url)
  }
}