Parse HTML tables using `rvest`

parse_html_table.R

# library(clipr)
# library(prettycheck) # github.com/danielvartan/prettycheck
# library(rvest)

parse_html_table <- function(x = clipr::read_clip()) {
  prettycheck:::assert_character(x)

  x |>
    paste0(collapse = " ") |>
    rvest::read_html() |>
    rvest::html_element("table") |> 
    rvest::html_table()
}