data-raw/feather.R

In r4fun/icongram: Interface to Icongram

## code to prepare `feather` dataset goes here
library(crrri)
library(rvest)
library(promises)

chrome <- Chrome$new()
client <- chrome$connect(callback = function(client) {
  client$inspect()
})

Page <- client$Page
Runtime <- client$Runtime
Page$navigate(url = "https://icongr.am/feather")
Runtime$evaluate(expression = 'window.scroll(0,99999);')
Runtime$evaluate(expression = 'window.scroll(0,99999);')
Runtime$evaluate(expression = 'window.scroll(0,99999);')
Runtime$evaluate(expression = 'document.documentElement.outerHTML') %...>%
  {
    out <- .$result$value %>%
      xml2::read_html() %>%
      rvest::html_nodes("code") %>%
      rvest::html_text()

    saveRDS(out, "inst/extdata/feather.rds", version = 2)
  } %>%
  finally(~ client$disconnect())