Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
knitr::opts_knit$set(root.dir = tempdir())
## ----setup, message=FALSE-----------------------------------------------------
library(ptspotter)
## -----------------------------------------------------------------------------
# old_wd <- setwd(tempdir())
# create a folder with some sequentially labelled scripts
seq_file_ops(n = 10, target_dir = "munge", filetype = "R")
# take a peek to confirm
list.files("munge")
## -----------------------------------------------------------------------------
adj_file_nos(target = 2, directory = "munge")
list.files("munge")
## -----------------------------------------------------------------------------
file.create("munge/02-.R")
list.files("munge")
## -----------------------------------------------------------------------------
rm_these <- c("06-.R", "07-.R", "08-.R")
file.remove(paste("munge", rm_these, sep = "/"))
list.files("munge")
## -----------------------------------------------------------------------------
adj_file_nos(target = 9, directory = "munge", action = "down", step = 3)
list.files("munge")
## ---- include=FALSE-----------------------------------------------------------
unlink("munge", recursive = TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.