clean and go

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(bare_combine)
+export(cleanAndGo)
 export(enslave)
 export(join_rows)
 export(rantAddin)

R/cleanAndGo.R

@@ -0,0 +1,19 @@
+#' Clean the environment and run the active script
+#'
+#' @export
+cleanAndGo <- function() {
+
+  ctx <- rstudioapi::getActiveDocumentContext()
+
+  if (!is.null(ctx)) {
+
+    do.call(rm, as.list(ls(all.names = TRUE, envir = .GlobalEnv)), envir = .GlobalEnv)
+
+    tf <- tempfile(fileext = ".R")
+    writeLines(ctx$contents, con = tf)
+
+    source(tf, local = FALSE)
+
+  }
+
+}

inst/rstudio/addins.dcf

@@ -26,4 +26,9 @@ Interactive: true
 Name: Enslave
 Description: Run a code selection as an RStudio background job task
 Binding: enslave
+Interactive: false
+
+Name: CleanAndGo
+Description: Cleanse the environment and execute the script
+Binding: cleanAndGo
 Interactive: false

man/cleanAndGo.Rd

@@ -0,0 +1,11 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/cleanAndGo.R
+\name{cleanAndGo}
+\alias{cleanAndGo}
+\title{Clean the environment and run the active script}
+\usage{
+cleanAndGo()
+}
+\description{
+Clean the environment and run the active script
+}