data-raw/get_user_agents.R

In sppmao/ioiscraper: Get Data from the Website qianxi.baidu

fake_user_agent <- function() {
  ls_of_urls <- paste0(
    "https://developers.whatismybrowser.com/useragents/explore/software_type_specific",
    c("/web-browser", "/in-app-browser")
  )
  get_table <- purrr::compose(
    tibble::as_tibble, ~.[[1L]], rvest::html_table, xml2::read_html
  )
  dplyr::bind_rows(lapply(ls_of_urls, get_table))[[1L]]
}

ua_list <- fake_user_agent()
devtools::use_data(ua_list, internal = TRUE)