cat("\nEnter FB password > ")
pwd <- readLines("stdin", n=1)
datarisk::main.refresh(pwd)
cat("\nPress any key...")
readLines("stdin", n=1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.