#' readin a number from user
#'
#' @param prompt
#' @param default
#' @param ...
#'
#' @return
#' @export
#'
#' @examples
input.number <-
function(prompt = 'Please Enter a Number >> ', default = NA, ...) {
fmt = prompt
while (T) {
input.anything <- readline(prompt = sprintf(fmt, ...))
if (input.anything == '')
return(default)
if (!is.na(as.numeric(input.anything)))
return (as.numeric(input.anything))
tryagain()
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.