## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = FALSE
)

# step 1 - Paste your secret key into line 25 & secret token into line 26. These come from Kraken (Online)
api_token = 'INSERT_API_KEY_HERE'
secret = 'INSERT_SECRET_TOKEN_HERE'


## ----echo=FALSE---------------------------------------------------------------
# # step 3 - Run This block to assign in environment 'pw'
# pw = new.env()
# 
# assign('api_key', api_token, envir = pw)
# assign( 'secret', secret, envir=pw)
# 

## ----echo=FALSE---------------------------------------------------------------
# # step 3 - Run the block to save them as 'rk_tokens.rds'.
# tmp_out <- file.path(tempdir(), "rk_tokens.rds")
# saveRDS(pw, tmp_out)
# message("Output saved temporarily to: ", tmp_out)
#