inst/ex-shrtcts.R

In gadenbuie/shrtcts: Make Anything an RStudio Shortcut

#' 10 random numbers
#'
#' @id 1
#' @interactive
function() {
    runif(10, 0, 10)
}

#' Say Something Nice
#'
#' @description A demo of cool things
#' @id 97
#' @shortcut Ctrl+Alt+P
#' @interactive
praise::praise

#' New Temporary R Markdown Document
#'
#' @id 2
#' @shortcut Ctrl+Alt+Shift+T
function() {
    tmp <- tempfile(fileext = ".Rmd")
    rmarkdown::draft(tmp, template = "github_document", package = "rmarkdown", edit = FALSE)
    rstudioapi::navigateToFile(tmp)
}

#' A Random Number Between 0 and 1
#'
#' @description Another demo
#' @id 3
#' @interactive
function() {
    runif(1, 0, 1)
}