Dynamic prompt for R

prompt.R

library(modulr)

"aclemen1/tool/prompt/bak" %provides_options% list(
  prompt = getOption("prompt")
)

"aclemen1/tool/prompt" %requires% list(

  bak_ = "aclemen1/tool/prompt/bak"

) %provides% {

  suppressWarnings(suppressPackageStartupMessages(library(tcltk2)))

  prompt_ <- getOption("prompt")

  set_ <- function(code) {
    prompt_ <<- getOption("prompt")
    eval(substitute(tclTaskSchedule(
      1000L,
      options(
        prompt = paste(code, "> ")
      ),
      id = "prompt", redo = TRUE)), envir = parent.frame())
    Sys.sleep(1.2)
    invisible(prompt_)
  }

  unset_ <- function(old) {
    function() {
      tclTaskDelete("prompt")
      options(prompt = old)
    }
  }

  list(
    set = set_,
    set_datetime = function(format = "%c")
      eval(substitute(
        set_(format(Sys.time(), .format)),
        list(.format = format))
      ),
    unset = unset_(old = prompt_),
    reset = unset_(old = bak_$prompt)
  )

}

if (.__name__ == "__main__") make()$set_datetime()