doc: fix example in get_connection()

ssi-dk · Sep 4, 2023 · 383023a · 383023a
1 parent dcca91e
commit 383023a
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 5 deletions.
diff --git a/R/connection.R b/R/connection.R
@@ -23,11 +23,14 @@
 #'  Additional parameters sent to DBI::dbConnect()
 #' @return
 #'   An object that inherits from DBIConnection driver specified in drv
-#' @examples
-#' \dontrun{
+#' @examplesIf requireNamespace("RSQLite", quietly = TRUE)
+#' conn <- get_connection(drv = RSQLite::SQLite(), dbname = ":memory:")
+#'
+#' DBI::dbIsValid(conn) # TRUE
+#'
 #' close_connection(conn)
-#' }
 #'
+#' DBI::dbIsValid(conn) # FALSE
 #' @seealso [RPostgres::Postgres]
 #' @export
 get_connection <- function(drv = RPostgres::Postgres(),

diff --git a/man/get_connection.Rd b/man/get_connection.Rd