84 lines
2.7 KiB
R
84 lines
2.7 KiB
R
|
## ---- echo = FALSE------------------------------------------------------------
|
||
|
|
library(httr)
|
||
|
|
knitr::opts_chunk$set(comment = "#>", collapse = TRUE)
|
||
|
|
|
||
|
|
## ---- eval = FALSE------------------------------------------------------------
|
||
|
|
# Sys.chmod("secret.file", mode = "0400")
|
||
|
|
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
my_secrets <- function() {
|
||
|
|
path <- "~/secrets/secret.json"
|
||
|
|
if (!file.exists(path)) {
|
||
|
|
stop("Can't find secret file: '", path, "'")
|
||
|
|
}
|
||
|
|
|
||
|
|
jsonlite::read_json(path)
|
||
|
|
}
|
||
|
|
|
||
|
|
## ---- eval = FALSE------------------------------------------------------------
|
||
|
|
# password <- rstudioapi::askForPassword()
|
||
|
|
|
||
|
|
## ---- eval = FALSE------------------------------------------------------------
|
||
|
|
# file.edit("~/.Renviron")
|
||
|
|
|
||
|
|
## ---- include = FALSE---------------------------------------------------------
|
||
|
|
Sys.setenv("VAR1" = "value1")
|
||
|
|
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
Sys.getenv("VAR1")
|
||
|
|
|
||
|
|
## ---- eval = FALSE------------------------------------------------------------
|
||
|
|
# keyring::key_set("MY_SECRET")
|
||
|
|
# keyring::key_get("MY_SECRET")
|
||
|
|
|
||
|
|
## ---- eval = FALSE------------------------------------------------------------
|
||
|
|
# keyring::keyring_create("httr")
|
||
|
|
# keyring::key_set("MY_SECRET", keyring = "httr")
|
||
|
|
|
||
|
|
## ---- eval = FALSE------------------------------------------------------------
|
||
|
|
# keyring::keyring_lock("httr")
|
||
|
|
|
||
|
|
## ---- eval = FALSE------------------------------------------------------------
|
||
|
|
# library(openssl)
|
||
|
|
# library(jsonlite)
|
||
|
|
# library(curl)
|
||
|
|
#
|
||
|
|
# encrypt <- function(secret, username) {
|
||
|
|
# url <- paste("https://api.github.com/users", username, "keys", sep = "/")
|
||
|
|
#
|
||
|
|
# resp <- httr::GET(url)
|
||
|
|
# httr::stop_for_status(resp)
|
||
|
|
# pubkey <- httr::content(resp)[[1]]$key
|
||
|
|
#
|
||
|
|
# opubkey <- openssl::read_pubkey(pubkey)
|
||
|
|
# cipher <- openssl::rsa_encrypt(charToRaw(secret), opubkey)
|
||
|
|
# jsonlite::base64_enc(cipher)
|
||
|
|
# }
|
||
|
|
#
|
||
|
|
# cipher <- encrypt("<username>\n<password>", "hadley")
|
||
|
|
# cat(cipher)
|
||
|
|
|
||
|
|
## ---- eval = FALSE------------------------------------------------------------
|
||
|
|
# decrypt <- function(cipher, key = openssl::my_key()) {
|
||
|
|
# cipherraw <- jsonlite::base64_dec(cipher)
|
||
|
|
# rawToChar(openssl::rsa_decrypt(cipherraw, key = key))
|
||
|
|
# }
|
||
|
|
#
|
||
|
|
# decrypt(cipher)
|
||
|
|
# #> username
|
||
|
|
# #> password
|
||
|
|
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
my_secret <- function() {
|
||
|
|
val <- Sys.getenv("SECRET")
|
||
|
|
if (identical(val, "")) {
|
||
|
|
stop("`SECRET` env var has not been set")
|
||
|
|
}
|
||
|
|
val
|
||
|
|
}
|
||
|
|
|
||
|
|
## -----------------------------------------------------------------------------
|
||
|
|
NOT_CRAN <- identical(tolower(Sys.getenv("NOT_CRAN")), "true")
|
||
|
|
knitr::opts_chunk$set(purl = NOT_CRAN)
|
||
|
|
|