## ----echo=FALSE----------------------------------------------------------
library(WufooR)
# put here your api key
options(Wufoo_Name = "johnmalc", Wufoo_API = "S6VI-I8UA-BY11-TDHO")
## ---- eval=FALSE, include=T----------------------------------------------
# auth_name(NULL)
# auth_key(NULL)
## ---- eval=FALSE, include=T----------------------------------------------
# t(user_info())
## ---- eval=FALSE, include=T----------------------------------------------
# t(form_info(formIdentifier = "z5kqx7h1gtvg4g", includeTodayCount="FALSE"))
#
#
# t(form_info(includeTodayCount="FALSE"))
#
# # Show responses to the form
# fe_1 <- form_entries(formIdentifier = "z5kqx7h1gtvg4g")
# t(fe_1)
#
# sapply(fe_1, class)
## ---- eval=FALSE, include=T----------------------------------------------
# form_entriesCount(formIdentifier = "z5kqx7h1gtvg4g", domain = "wufoo.eu")
## ---- eval=FALSE, include=T----------------------------------------------
# form_comments(formIdentifier = "z5kqx7h1gtvg4g", domain = "wufoo.eu")
# form_commentsCount(formIdentifier = "z5kqx7h1gtvg4g")
## ---- eval=FALSE, include=T----------------------------------------------
# form_entriesFromCSV(reportName = "untitled-report", showRequestURL = F)
## ---- eval=FALSE, include=T----------------------------------------------
# fields_info(formIdentifier = "z5kqx7h1gtvg4g", showRequestURL = FALSE)
## ---- eval=FALSE, include=T----------------------------------------------
# # all reports
# t(reports_info())
#
# # only some reports
# t(report_info(reportName = "untitled-report"))
## ---- eval=FALSE, include=T----------------------------------------------
# t(report_entries(reportName = "untitled-report"))
#
# t(report_widgets(formIdentifier = "z5kqx7h1gtvg4g"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.