Nothing
context("RequeteODBC")
test_that("Test that RequeteODBC works on a database ", {
skip_on_cran()
env_set_test_stacomi()
# this requires an odbc link to be setup for test here a database bd_contmig_nat used for stacomir
# the odbc link is bd_contmig_nat and points to database bd_contmig_nat
object <-new("RequeteODBC")
object@baseODBC=c("bd_contmig_nat",user,password)
object@sql <- "select * from iav.t_lot_lot limit 10"
suppressWarnings(object <- connect(object))
expect_that(object@connection,is_a("RODBC"))
})
test_that("Test that RequeteDB returns the sql string when options(stacomiR.printqueries=TRUE) ", {
skip_on_cran()
env_set_test_stacomi()
o <- options()
options(
stacomiR.printqueries = TRUE
)
req<-new("RequeteODBC")
req@sql<-"select * from iav.t_lot_lot limit 10"
req@baseODBC <- c("bd_contmig_nat",user,password)
expect_output(suppressWarnings(req<- connect(req)))
options(o)
})
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.