library(shiny)
library(emailjsr)
ui <- fluidPage(
use_emailjsr_ui("id")
)
server <- function(input, output, session) {
emailjsr::use_emailjsr_server("id",
service_id = "Your_service_id",
template_id = "Your_template_id",
user_id = "Your_user_id",
access_token = "Your_Access_Token",
language = "en"
)
}
Run the code above in your browser using DataLab