SearchRoom <- function(room, term) {
results <- getURL(paste("https://", room$subdomain, ".campfirenow.com/search/", URLencode(term), ".json", sep=""), .opts=list(userpwd=room$token))
return(fromJSON(results))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.