# ## A Sample function that prompts the user for a number and returns a integer
#
# readinteger <- function()
# {
# n <- readline(prompt="Enter an integer: ")
# return(as.integer(n))
# }
#
# print(readinteger())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.