library(stringr)
library(data.table)
library(RODBC)
context("Testing basic functionality")
test_that("Get database string", {
skip_on_travis()
isConnString(isConnParams("cortex_aws"))
expect_true(str_detect(isConnString("morpheus"), "^Server\\=.+morpheus$"))
expect_true(str_detect(isConnString("EDWD"), "^Server\\=.+EDW$"))
})
# test_that("Get sample data", {
# skip_on_travis()
#
# db <- "morpheus"
# tbl <- "EntryTypes"
# wh <- NULL
#
#
# expect_is(isiData(db, tbl), "data.table")
# expect_gt(nrow(isiData(db, tbl)), 0)
# })
#
#
# test_that("test argument 'max_rows'", {
# skip_on_travis()
#
# db <- "morpheus"
# tbl <- "MainLog"
# wh <- NULL
#
# max_rows <- 20000
# DT <- isiData(db, tbl, max_rows = max_rows)
#
# expect_is(DT, "data.table")
# expect_lte(nrow(DT), max_rows)
# expect_gte(nrow(DT), max_rows-1)
# })
# devtools::evalq_clean({
# library(secret)
# local_key()
#
#
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.