Nothing
test_that("Achilles MS SQL Execution", {
if (Sys.getenv("CDM5_SQL_SERVER_USER") != "") {
details <- createConnectionDetails(
dbms = "sql server",
user = Sys.getenv("CDM5_SQL_SERVER_USER"),
password = URLdecode(Sys.getenv("CDM5_SQL_SERVER_PASSWORD")),
server = Sys.getenv("CDM5_SQL_SERVER_SERVER")
)
expect_no_error(
Achilles::achilles(
connectionDetails = details,
cdmDatabaseSchema = Sys.getenv("CDM5_SQL_SERVER_CDM54_SCHEMA"),
resultsDatabaseSchema = Sys.getenv("CDM5_SQL_SERVER_OHDSI_SCHEMA"),
cdmVersion = "5.4",
createTable = T
)
)
} else {
message("Skipping MS SQL testing because environmental variables not set")
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.