#' @export
firebaseServer <- function(input, output){
observers <- system.file("Rscripts", "observers.R", package = "firebaseAPI")
source(observers, local = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.