Introducing_emailjsr

Purpose

This package is to use emailjs.com service easily.

Install

## From github: latest version
remotes::install_github('changwoolim/emailjsr')

Before Use

Before use, you should sign up at emailjs.com, and make your template. Please sure that you should not expose your user id, access token, and so on.

User-agent, Browser width and height

If you want to detect User-agent, Browser width and height, type down shinybrowser::detect() on your ui.

Use with your own application

emailjsr::send_email(service_id, user_id, template_id, template_params, access_token)

Using Preset modal

When you use ‘shiny’, you can use preset modal.

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

shinyApp(ui, server)

Please remember you should fill your own ids, and tokens.

You can see button named “Show feedback modal”. This message is default, and you can change it. When you click, you will see modal below.

In this preset, Feedback * is required. So if you don’t write down anything, error message will be shown. If you fill Feedback * and other form(if needed), just click “Submit” button. You will receive email right away.

Feedback

You can make issue at my github repository. Any bug report, suggestion are welcomed.