SHARE
TWEET

Untitled

a guest Jun 27th, 2019 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. List.Of.Tabs <- map(pages, ~ {
  2.   name <- .x[1]
  3.   link <- .x[2]
  4.   webpage <- read_html(link)
  5.   tbls <- html_nodes(webpage, "table")
  6.   tbls_ls <- html_table(tbls,fill = TRUE)
  7.   pos1 <- possibly(function(tbls) bind_rows(tbls) %>%
  8.                    filter_all(any_vars(. %in% c("Ireland", "Japan")))
  9.                    , otherwise = NA)
  10.   pos1(tbls_ls) }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top