R/open_pkgdown.R

In jimbrig/jimstools: Tools for R

#' Open pkgdown site of the package
#'
#' @importFrom utils browseURL
#'
#' @export
open_pkgdown <- function() {
      guide_path <- system.file('docs/index.html', package = 'jimstools')
      if (guide_path == "") {
        stop('There is no pkgdown site in ', 'docs/index.html')
      }

  browseURL(paste0('file://', guide_path))
}