#' readline with sprintf
#'
#' @param fmt
#' @param ...
#'
#' @return
#' @export
#'
#' @examples
readline0 <- function(fmt = '', ...) {
return(readline(prompt = sprintf(fmt, ...)))
} # readline modified @ver1.2
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.