diff --git a/R/utils_nflverse_data_class.R b/R/utils_nflverse_data_class.R index fa9c7268..0766d5a8 100644 --- a/R/utils_nflverse_data_class.R +++ b/R/utils_nflverse_data_class.R @@ -5,6 +5,7 @@ #' `data.frame` class. #' #' @name nflverse_data-class +#' @keywords internal #' @exportClass nflverse_data methods::setOldClass(c("nflverse_data", "data.frame")) diff --git a/R/utils_sitrep.R b/R/utils_sitrep.R index 46942c36..447f9b94 100644 --- a/R/utils_sitrep.R +++ b/R/utils_sitrep.R @@ -83,7 +83,7 @@ ffverse_sitrep <- function(pkg = c("ffscrapr","ffsimulator","ffpros","ffopportun out$installed <- lapply(s$otherPkgs, `[`, c("Package", "Version")) out$installed <- as.data.frame(data.table::rbindlist(out$installed)) - out$installed <- setNames(out$installed, c("package","version")) + out$installed <- stats::setNames(out$installed, c("package","version")) # Relies on options for a given package being prefixed by said package name opts <- options() @@ -113,8 +113,8 @@ ffverse_sitrep <- function(pkg = c("ffscrapr","ffsimulator","ffpros","ffopportun #' Re-exporting with `methods::setOldClass()` allows these dataframes to be used #' in S4 generics like those from DBI and jsonlite. #' -#' @name nflverse_sitrep-data-class -#' +#' @name nflverse_sitrep-class +#' @keywords internal #' @exportClass nflverse_sitrep methods::setOldClass("nflverse_sitrep", "list") @@ -148,7 +148,7 @@ print.nflverse_sitrep <- function(x, ...) { .sitrep_deps_pak <- function(packages){ ref <- NULL pkg_status <- data.table::as.data.table(pak::pkg_status(packages)) - pkg_status <- data.table:::unique.data.table(pkg_status, by = "package") + pkg_status <- unique(pkg_status, by = "package") pkg_spec <- data.table::fcoalesce(pkg_status$remotepkgref, pkg_status$package) # Add any repositories found by pkg_status to the search list @@ -201,7 +201,7 @@ print.nflverse_sitrep <- function(x, ...) { dep_status <- utils::sessionInfo(deps)$otherPkgs dep_status <- data.table::rbindlist(dep_status, fill = TRUE)[, c("Package", "Version")] - dep_status <- setNames(dep_status, c("package","version")) + dep_status <- stats::setNames(dep_status, c("package","version")) dep_status <- as.data.frame(dep_status) return(dep_status) diff --git a/man/nflverse_data-class.Rd b/man/nflverse_data-class.Rd index d0419a31..bbe27a0b 100644 --- a/man/nflverse_data-class.Rd +++ b/man/nflverse_data-class.Rd @@ -1,5 +1,5 @@ % Generated by roxygen2: do not edit by hand -% Please edit documentation in R/utils.R +% Please edit documentation in R/utils_nflverse_data_class.R \name{nflverse_data-class} \alias{nflverse_data-class} \title{nflverse data class} @@ -8,3 +8,4 @@ This class has a special S3 print method that tries to read attached metadata an provide timestamps and source attributes. It otherwise will dispatch to the \code{data.frame} class. } +\keyword{internal} diff --git a/man/nflverse_sitrep-data-class.Rd b/man/nflverse_sitrep-class.Rd similarity index 84% rename from man/nflverse_sitrep-data-class.Rd rename to man/nflverse_sitrep-class.Rd index f218c3dd..ecb536d5 100644 --- a/man/nflverse_sitrep-data-class.Rd +++ b/man/nflverse_sitrep-class.Rd @@ -1,7 +1,7 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/utils_sitrep.R -\name{nflverse_sitrep-data-class} -\alias{nflverse_sitrep-data-class} +\name{nflverse_sitrep-class} +\alias{nflverse_sitrep-class} \title{nflverse_sitrep data class} \description{ \code{nflverse_sitrep()} returns an S3 class that was created to allow for custom @@ -11,3 +11,4 @@ printing. It will otherwise dispatch to the \code{list} class. Re-exporting with \code{methods::setOldClass()} allows these dataframes to be used in S4 generics like those from DBI and jsonlite. } +\keyword{internal}