R/bracketless.R

In tjtnew/coffee: Stuff that helps me get going

make_bracketless <- function(x) structure(substitute(x), class = "bracketless")

#' @importFrom utils file.edit
NULL

#' @export
print.bracketless <- function(x, ...) eval(x, envir = parent.frame(2)) # fix for use in rstudio

#' @export
.scrap <- make_bracketless(file.edit(tempfile(fileext = ".R")))

#' @export
.rprofile <- make_bracketless(file.edit("~/.Rprofile"))

#' @export
.todo <- make_bracketless(
  {
    f <- Sys.getenv("TODO_FILE", "~/.todo.txt")
    if (!file.exists(f)) file.create(f)
    file.edit(f)
  }
)