cleanup and doc

NAMESPACE

@@ -15,4 +15,3 @@ export(stow_remove)
 export(stow_size)
 export(stow_url)
 export(write_dpkg)
-if (getRversion() < "4.3.0") importFrom("S7", "@")

R/dpkg_tibble.R

@@ -64,6 +64,14 @@ print.dpkg <- function(x, ...) {
 #' @param x a dpkg object
 #' @returns a list of metadata key value pairs
 #' @export
+#' @examples
+#'
+#' x <- as_dpkg(mtcars, name = "mtcars", title = "Motor Trend Road Car Tests")
+#' attr(x, "description") <- "This is a data set all about characteristics of different cars"
+#' attr(x, "homepage") <- "https://github.com/cole-brokamp/dpkg"
+#' x
+#' 
+#' dpkg_meta(x)
 dpkg_meta <- function(x) {
   attributes(x)[c("name", "version", "title", "homepage", "description")]
 }

R/helpers.R

@@ -1,11 +1,3 @@
 .onLoad <- function(...) {
   fs::dir_create(stow_path())
 }
-
-# enable usage of <S7_object>@name in package code
-#' @rawNamespace if (getRversion() < "4.3.0") importFrom("S7", "@")
-NULL
-
-has_internet <- function() {
-  !is.null(curl::nslookup("captive.apple.com", error = FALSE))
-}