removing unnecessary \dontrun; ensuring available packages are memois…

…ed on load

R/assess_covr_coverage.R

@@ -6,7 +6,7 @@
 #'     "containing a named numeric vector of file unit test coverage and a ",
 #'     "singular numeric value representing overall test coverage ",
 #'     "respectively."),
-#'   dontrun = TRUE  # execution time can exceed CRAN limits
+#'   dontrun = TRUE
 #' )
 #'
 #' @export
@@ -40,7 +40,7 @@ assess_covr_coverage.pkg_source <- function(x, ...) {
 #'
 #' Returns the overall test coverage from a covr coverage report
 #'
-#' @eval roxygen_score_family("covr_coverage")
+#' @eval roxygen_score_family("covr_coverage", dontrun = TRUE)
 #' @return A \code{numeric}
 #'
 #' @export

R/assess_downloads.R

@@ -54,4 +54,3 @@ metric_score.pkg_metric_downloads_1yr <- function(x, ...) {
 attributes(metric_score.pkg_metric_downloads_1yr)$label <- paste0(
   "A logistic rating of the number of package downloads in the past year. ",
   "For more details, see ?riskmetric::metric_score.pkg_metric_downloads_1yr")
-

R/assess_exported_namespace.R

@@ -3,7 +3,7 @@
 #' @eval roxygen_assess_family(
 #'   "exported_namespace",
 #'   "List of functions and objects exported by a package, excluding S3methods",
-#'   dontrun = TRUE)
+#' )
 #'
 #' @importFrom pkgload parse_ns_file
 #' @export
@@ -51,5 +51,3 @@ metric_score.pkg_metric_exported_namespace <- function(x, ...) {
 
 attributes(metric_score.pkg_metric_exported_namespace)$label <-
   "The number of exported objects in a package"
-
-

R/pkg_assess.R

@@ -20,7 +20,7 @@
 #' @keywords internal
 roxygen_assess_family <- function(name,
     return_type = "an atomic assessment result",
-    dontrun = TRUE) {
+    dontrun = FALSE) {
 
   assess_func <- sprintf("assess_%s", name)
   score_func <- sprintf("metric_score.pkg_metric_%s", name)

R/pkg_ref_class.R

@@ -57,19 +57,18 @@
 #' @export
 #'
 #' @examples
-#' \dontrun{
 #'
 #' # riskmetric will check for installed packages by default
 #' ref_1 <- pkg_ref("utils")
 #' ref_1$source # returns 'pkg_install'
 #'
-#' # You can also override this behavior with a source argument
-#' ref_2 <- pkg_ref("utils", source = "pkg_cran_remote")
-#' ref_2$source  # returns 'pkg_cran_remote'
-#'
 #' # lib.loc can be used to specify a library for pkg_install
 #' ref_3 <- pkg_ref("utils", source = "pkg_install", lib.loc = .libPaths()[1])
 #'
+#' \dontrun{
+#' # You can also override this behavior with a source argument
+#' ref_2 <- pkg_ref("utils", source = "pkg_cran_remote")
+#' ref_2$source  # returns 'pkg_cran_remote'
 #' }
 pkg_ref <- function(x, ...) {
   if (missing(x)) return(structure(logical(0L), class = "pkg_ref"))

R/pkg_score.R

@@ -96,7 +96,7 @@ pkg_score.list_of_pkg_metric <- function(x, ...,
 #' #' @eval roxygen_score_family("has_news")
 #' }
 #' @keywords internal
-roxygen_score_family <- function(name, dontrun = TRUE) {
+roxygen_score_family <- function(name, dontrun = FALSE) {
 
   assess_func <- sprintf("assess_%s", name)
   score_func <- sprintf("metric_score.pkg_metric_%s", name)

R/utils_memoised.R

@@ -76,6 +76,8 @@ memoise_installed_packages <- memoise::memoise({
 
 #' @importFrom memoise memoise
 memoise_available_packages <- memoise::memoise({
+  Sys.sleep(20)
+
   function(..., repos = getOption("repos"), .local = getOption("riskmetric.tests")) {
     if (!is.null(.local)) {
       db <- read.csv(

R/zzz.R

@@ -14,4 +14,10 @@
   names(opts) <- sprintf("riskmetric.%s", names(opts))
   opts <- opts[!names(opts) %in% names(options())]
   do.call(options, as.list(opts))
+
+  # if non-interactive, cache package sources on load
+  if (!interactive()) {
+    memoise_available_packages()
+    memoise_installed_packages()
+  }
 }