Nothing
readline_nomask <- function(msg, noblank, silent=FALSE)
{
if (!silent)
message("WARNING: your platform is not supported. Input is not masked!")
message(msg, appendLF=FALSE)
pw <- readline()
while (interactive() && isTRUE(noblank) && pw == "")
{
message("No blank input, please!", appendLF=FALSE)
pw <- readline()
}
pw
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.