R/curlR-package.R

In rpkgs/curlR: What the Package Does (One Line, Title Case)

#' @import RSelenium
#' @import magrittr
#' @keywords internal
#'
#' @importFrom Ipaper runningId fprintf check_dir listk reorder_name
#' is_empty rm_empty which.isnull code
#' @importFrom data.table data.table is.data.table first last
#' @importFrom plyr llply ldply
#' @importFrom utils URLdecode download.file read.csv
#' @importFrom stats setNames
#' @importFrom stringr str_extract str_split
"_PACKAGE"

# The following block is used by usethis to automatically manage
# roxygen namespace tags. Modify with care!
## usethis namespace: start
## usethis namespace: end
NULL


# env <- environment()
# #' @export
# init_python <- function() {
#     env <- environment(.onLoad)
#     invisible()
# }

#' @importFrom reticulate source_python
.onLoad <- function(libname, pkgname) {
  if (getRversion() >= "2.15.1") {
    utils::globalVariables(
      c(".", "timenum", "timeinfo", "TaskName", "time", "res", "sendEmail_py")
    )
  }
  # options(curlR = list(server = FALSE, pkg = "curlR"))
  # .prepend_path("PATH", "/opt/anaconda3/bin")
}


#' prepend_path
#'
#' @keywords internal
#' @export
prepend_path <- function(NAME, VALUE) {
  vals <- Sys.getenv(NAME)
  vals <- paste0(VALUE, ":", vals)
  cmd <- sprintf("Sys.setenv(%s=vals)", NAME)
  eval(parse(text = cmd))
}