R/insertqsol.R

In uoepsy/junk: Bits and pieces for uoepsy

#' Insert question and solution.
#'
#' Call this function as an addin to insert q and sol code at the cursor position.
#' Can add as a keyboard shortcut (I use ctrl + shift + q)
#' @export
insertqsol <- function() {
  rstudioapi::insertText("`r qbegin(qcounter())`

`r qend()`
`r solbegin(show=params$SHOW_SOLS, toggle=params$TOGGLE)`

`r solend()`
")
}