use_emailjsr_ui {emailjsr}

use_emailjsr_ui

Description

emailjs.com R support with preset modal

Usage

use_emailjsr_ui(id, message = "Show feedback modal")

Arguments

id

Should be same to id of use_emailjsr_server.

message

Messege on button.

Value

No return value, for shiny support

Examples

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"
  )
}