RAQSAPItestsetup_helper <- function()
{
path <- NA
if(file.exists("local.R")) {path <- "./"}
else if(file.exists("tests/testthat/local.R")) {path <- "tests/testthat/"}
if(!is.na(path))
{
source(paste0(path, "local.R"))
AQScredentials <- RAQSAPItestsetup_local()
datamartAPI_user <- AQScredentials$AQSusername
datamartAPI_key <- AQScredentials$AQSkey
AQScredentials <- list(datamartAPI_user = datamartAPI_user,
datamartAPI_key = datamartAPI_key)
return(AQScredentials)
} else {print("did not go into if satement")} #debug
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.