1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#' spec_getting_started
#' @family getting specifications
#' @usage NULL
#' @format NULL
#' @keywords NULL
#' @section Definition:
spec_getting_started <- list(
package_dependencies = function(ctx) {
#' A DBI backend is an R package
pkg_path <- get_pkg_path(ctx)
pkg_deps_df <- desc::desc_get_deps(pkg_path)
pkg_imports <- pkg_deps_df$package[pkg_deps_df$type == "Imports"]
#' which imports the \pkg{DBI}
expect_true("DBI" %in% pkg_imports)
#' and \pkg{methods}
expect_true("methods" %in% pkg_imports)
#' packages.
},
#
package_name = function(ctx) {
pkg_name <- package_name(ctx)
#' For better or worse, the names of many existing backends start with
#' \sQuote{R}, e.g., \pkg{RSQLite}, \pkg{RMySQL}, \pkg{RSQLServer}; it is up
#' to the backend author to adopt this convention or not.
expect_match(pkg_name, "^R")
},
#
NULL
)
|
