Nothing
#' spec_result_clear_result
#' @family result specifications
#' @family Arrow specifications
#' @usage NULL
#' @format NULL
#' @keywords NULL
spec_result_clear_result <- list(
clear_result_formals = function() {
# <establish formals of described functions>
expect_equal(names(formals(dbClearResult)), c("res", "..."))
},
clear_result_return_query = function(con) {
#' @return
#' `dbClearResult()` returns `TRUE`, invisibly, for result sets obtained from
#' `dbSendQuery()`,
res <- dbSendQuery(con, trivial_query())
expect_invisible_true(dbClearResult(res))
},
clear_result_return_statement = function(ctx, con, table_name) {
#' `dbSendStatement()`,
res <- dbSendStatement(con, ctx$tweaks$create_table_as(table_name, "SELECT 1"))
expect_invisible_true(dbClearResult(res))
},
clear_result_return_query_arrow = function(ctx, con, table_name) {
# Failed on SQL Server
skip_if_not_dbitest(ctx, "1.7.99.3")
#' or `dbSendQueryArrow()`,
res <- dbSendQueryArrow(con, ctx$tweaks$create_table_as(table_name, "SELECT 1"))
expect_invisible_true(dbClearResult(res))
},
#'
cannot_clear_result_twice_query = function(con) {
#' @section Failure modes:
#' An attempt to close an already closed result set issues a warning
#' for `dbSendQuery()`,
res <- dbSendQuery(con, trivial_query())
dbClearResult(res)
expect_warning(expect_invisible_true(dbClearResult(res)))
},
cannot_clear_result_twice_statement = function(ctx, con, table_name) {
#' `dbSendStatement()`,
res <- dbSendStatement(con, ctx$tweaks$create_table_as(table_name, "SELECT 1"))
dbClearResult(res)
expect_warning(expect_invisible_true(dbClearResult(res)))
},
cannot_clear_result_twice_query_arrow = function(ctx, con, table_name) {
# Failed on SQL Server
skip_if_not_dbitest(ctx, "1.7.99.4")
#' and `dbSendQueryArrow()`,
res <- dbSendQueryArrow(con, ctx$tweaks$create_table_as(table_name, "SELECT 1"))
dbClearResult(res)
expect_warning(expect_invisible_true(dbClearResult(res)))
},
#' @section Specification:
#' `dbClearResult()` frees all resources associated with retrieving
#' the result of a query or update operation.
#' The DBI backend can expect a call to `dbClearResult()` for each
#' [dbSendQuery()] or [dbSendStatement()] call.
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.