don't clean up examples

Author: ThierryO

R/recent_commit.R

@@ -68,12 +68,6 @@
 #' # still points to the third commit as this is the latest commit in which the
 #' # data was present
 #' recent_commit("iris", repo, data = TRUE)
-#'
-#' #' clean up
-#' junk <- file.remove(
-#'   rev(list.files(repo_path, full.names = TRUE, recursive = TRUE,
-#'                  include.dirs = TRUE, all.files = TRUE)),
-#'   repo_path)
 recent_commit <- function(file, root, data = FALSE) {
   UseMethod("recent_commit", root)
 }

R/relabel.R

@@ -61,12 +61,6 @@
 #' read_vc("relabel", repo)
 #' # relabel() changed the metadata, not the raw data
 #' status(repo)
-#'
-#' # clean up
-#' junk <- file.remove(
-#'   rev(list.files(repo_path, full.names = TRUE, recursive = TRUE,
-#'                  include.dirs = TRUE, all.files = TRUE)),
-#'   repo_path)
 #' @family storage
 relabel <- function(file, root = ".", change) {
   UseMethod("relabel", change)

R/rename_variable.R

@@ -42,12 +42,6 @@
 #' # check the changes
 #' read_vc("rename", repo)
 #' status(repo)
-#'
-#' # clean up
-#' junk <- file.remove(
-#'   rev(list.files(repo_path, full.names = TRUE, recursive = TRUE,
-#'                  include.dirs = TRUE, all.files = TRUE)),
-#'   repo_path)
 #' @family storage
 rename_variable <- function(file, change, root = ".", ...) {
   UseMethod("rename_variable", root)

R/upgrade_data.R

@@ -25,9 +25,6 @@
 #' upgrade_data(file = "iris", root = root)
 #' # use path = "." to upgrade all git2rdata objects under root
 #' upgrade_data(path = ".", root = root)
-#'
-#' # clean up
-#' junk <- file.remove(list.files(root, full.names = TRUE), root)
 upgrade_data <- function(file, root = ".", verbose, ..., path) {
   UseMethod("upgrade_data", root)
 }

man-roxygen/example_io.R

@@ -56,11 +56,3 @@
 #'   iris[1:6, ], "iris2", repo, sorting = "Sepal.Width", optimize = FALSE
 #' )
 #' status(repo)
-#'
-#' # clean up
-#' junk <- file.remove(
-#'   list.files(root, full.names = TRUE, recursive = TRUE), root)
-#' junk <- file.remove(
-#'   rev(list.files(repo_path, full.names = TRUE, recursive = TRUE,
-#'                  include.dirs = TRUE, all.files = TRUE)),
-#'   repo_path)

man-roxygen/example_isgit2r.R

@@ -21,6 +21,3 @@
 #' junk <- file.remove(file.path(root, "iris.tsv"))
 #' is_git2rmeta("iris", root)
 #' is_git2rdata("iris", root)
-#'
-#' # clean up
-#' junk <- file.remove(list.files(root, full.names = TRUE), root)

man-roxygen/example_prune.R

@@ -64,11 +64,3 @@
 #' # check the removal
 #' list_data(repo)
 #' status(repo)
-#'
-#' # clean up
-#' junk <- file.remove(
-#'   list.files(root, full.names = TRUE, recursive = TRUE), root)
-#' junk <- file.remove(
-#'   rev(list.files(repo_path, full.names = TRUE, recursive = TRUE,
-#'                  include.dirs = TRUE, all.files = TRUE)),
-#'   repo_path)