R/gelman_blog_ex.R

In cimentadaj/scrapex: Data package containing websites saved locally for web scraping examples

##' This example hosts data from the website https://statmodeling.stat.columbia.edu/, the blog
##' of statistician Andrew Gelman
##'
##' This function returns the full HTML link to the local HTML files that can be used as exercises for scraping the data as if this was the online hosted version.
##'
##' Please note that this website are not meant
##' to be used to reliably explore their hyperlinks or other features, as
##' these will change inevitably when the website changes some of it's
##' structures. This is because some of the links still point to the
##' real website or other platforms.
##'
##' @title Return the paths to the complete HTML website of the blog of Andrew Gelman
##' @return A character vector with with 1 local HTML link
##' @author Jorge Cimentada
##' @export
##'
##' @examples
##'
##' library(xml2)
##' library(scrapex)
##'
##' one_link <- gelman_blog_ex()
##'
##' read_html(one_link)
##'
##' \dontrun{
##' # If you want to look at the website in your browser
##' # just wrap it in prep_browser and pass it to browseURL
##' browseURL(prep_browser(one_link))
##' }
##'
gelman_blog_ex <- function() {
  pkg_dir <- system.file(package = "scrapex")
  dir_data <- file.path(pkg_dir, "extdata", "gelman_blog/stats/")

  html_files <-
    list.files(dir_data,
               pattern = "index.html$",
               recursive = TRUE,
               full.names = TRUE)

  html_files
}