Nothing
#' spec_driver_get_info
#' @family driver specifications
#' @usage NULL
#' @format NULL
#' @keywords NULL
#' @name spec_get_info
spec_driver_get_info <- list(
get_info_driver = function(ctx) {
#' @return
#' For objects of class [DBIDriver-class], `dbGetInfo()`
info <- dbGetInfo(ctx$drv)
#' returns a named list
expect_type(info, "list")
info_names <- names(info)
#' that contains at least the following components:
#'
necessary_names <- c(
#' - `driver.version`: the package version of the DBI backend,
"driver.version",
#' - `client.version`: the version of the DBMS client library.
"client.version"
)
for (name in necessary_names) {
eval(bquote(
expect_true(.(name) %in% info_names)
))
}
},
#
NULL
)
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.