Browse Source

no-sandbox

master
boB Rudis 6 years ago
parent
commit
328e86be9f
No known key found for this signature in database GPG Key ID: 2A514A4997464560
  1. 6
      R/read-html.r

6
R/read-html.r

@ -9,7 +9,7 @@
#' chrome_read_html("https://www.r-project.org/")
chrome_read_html <- function(url, chrome_bin=Sys.getenv("HEADLESS_CHROME")) {
url <- shQuote(url)
tmp <- system2(chrome_bin, c("--headless", "--disable-gpu", "--dump-dom", url), stdout=TRUE)
tmp <- system2(chrome_bin, c("--headless", "--no-sandbox", "--disable-gpu", "--dump-dom", url), stdout=TRUE)
xml2::read_html(paste0(tmp, collapse="\n"))
}
@ -24,7 +24,7 @@ chrome_read_html <- function(url, chrome_bin=Sys.getenv("HEADLESS_CHROME")) {
#' chrome_dump_pdf("https://www.r-project.org/")
chrome_dump_pdf <- function(url, chrome_bin=Sys.getenv("HEADLESS_CHROME")) {
url <- shQuote(url)
tmp <- system2(chrome_bin, c("--headless", "--disable-gpu", "--print-to-pdf", url))
tmp <- system2(chrome_bin, c("--headless", "--no-sandbox", "--disable-gpu", "--print-to-pdf", url))
}
#' Capture a screenshot
@ -45,7 +45,7 @@ chrome_dump_pdf <- function(url, chrome_bin=Sys.getenv("HEADLESS_CHROME")) {
#' chrome_shot("https://www.r-project.org/logo/Rlogo.svg")
chrome_shot <- function(url, width=NULL, height=NULL, chrome_bin=Sys.getenv("HEADLESS_CHROME")) {
args <- c("--headless", "--disable-gpu", "--screenshot")
args <- c("--headless", "--no-sandbox", "--disable-gpu", "--screenshot")
url <- shQuote(url)

Loading…
Cancel
Save