mrchypark
7 years ago
8 changed files with 88 additions and 3 deletions
@ -0,0 +1,22 @@ |
|||
#' get an envrionment variable `HEADLESS_CHROME` |
|||
#' |
|||
#' @md |
|||
#' @note This only return an envrionment variable `HEADLESS_CHROME`. |
|||
#' @export |
|||
#' @examples |
|||
#' get_env() |
|||
get_env <- function() { |
|||
Sys.getenv("HEADLESS_CHROME") |
|||
} |
|||
|
|||
#' set an envrionment variable `HEADLESS_CHROME` |
|||
#' |
|||
#' @md |
|||
#' @note This only grabs the `<body>` `innerHTML` contents |
|||
#' @param env path of chrome execute file for an envrionment variable `HEADLESS_CHROME` |
|||
#' @export |
|||
#' @examples |
|||
#' set_env("C:/Program Files/Google/Chrome/Application/chrome.exe") |
|||
set_env <- function(env=Sys.getenv("HEADLESS_CHROME")) { |
|||
Sys.setenv(HEADLESS_CHROME=env) |
|||
} |
@ -0,0 +1,15 @@ |
|||
.onAttach <- function(libname, pkgname) { |
|||
if (interactive()) { |
|||
if ( unname(Sys.info()["sysname"] == "Windows") ){ |
|||
if ( unname(Sys.info()["machine"] == "x86-64") ) { |
|||
Sys.setenv(HEADLESS_CHROME="C:/Program Files (x86)/Google/Chrome/Application/chrome.exe") |
|||
} else { |
|||
Sys.setenv(HEADLESS_CHROME="C:/Program Files/Google/Chrome/Application/chrome.exe") |
|||
} |
|||
} |
|||
if ( unname(Sys.info()["sysname"] == "Darwin") ){ |
|||
Sys.setenv(HEADLESS_CHROME="/Applications/Google\ Chrome.app/Contents/MacOS/Google\ Chrome") |
|||
} |
|||
# check other os |
|||
} |
|||
} |
@ -1,4 +1,9 @@ |
|||
#' Get Chrome version |
|||
#' |
|||
#' @md |
|||
#' @export |
|||
chrome_version <- function(x) { system2(chrome_bin, "--version") } |
|||
#' @examples |
|||
#' chrome_version() |
|||
chrome_version <- function() { |
|||
system2(chrome_bin, "--version") |
|||
} |
@ -0,0 +1,17 @@ |
|||
% Generated by roxygen2: do not edit by hand |
|||
% Please edit documentation in R/env.R |
|||
\name{get_env} |
|||
\alias{get_env} |
|||
\title{get an envrionment variable \code{HEADLESS_CHROME}} |
|||
\usage{ |
|||
get_env() |
|||
} |
|||
\description{ |
|||
get an envrionment variable \code{HEADLESS_CHROME} |
|||
} |
|||
\note{ |
|||
This only return an envrionment variable \code{HEADLESS_CHROME}. |
|||
} |
|||
\examples{ |
|||
get_env() |
|||
} |
@ -0,0 +1,20 @@ |
|||
% Generated by roxygen2: do not edit by hand |
|||
% Please edit documentation in R/env.R |
|||
\name{set_env} |
|||
\alias{set_env} |
|||
\title{set an envrionment variable \code{HEADLESS_CHROME}} |
|||
\usage{ |
|||
set_env(env = Sys.getenv("HEADLESS_CHROME")) |
|||
} |
|||
\arguments{ |
|||
\item{env}{path of chrome execute file for an envrionment variable \code{HEADLESS_CHROME}} |
|||
} |
|||
\description{ |
|||
set an envrionment variable \code{HEADLESS_CHROME} |
|||
} |
|||
\note{ |
|||
This only grabs the \code{<body>} \code{innerHTML} contents |
|||
} |
|||
\examples{ |
|||
set_env("C:/Program Files/Google/Chrome/Application/chrome.exe") |
|||
} |
Loading…
Reference in new issue