library(RHTMLForms)
ff = getHTMLFormDescription("http://www.itis.gov/servlet/SingleRpt/SingleRpt")
fun = createFunction(ff[[1]])
o = fun(search_value = "dog")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.