| Title: | 'emailjs' Support |
| Version: | 0.0.2 |
| Maintainer: | Changwoo Lim <limcw@zarathu.com> |
| Description: | Use 'emailjs' API easily in 'R'. This package is not official. https://www.emailjs.com/docs/rest-api/send/. You can send e-mail with 'emailjs' with function, based on 'httr'. You can also make a 'shiny' ui and server function. It can be used for making feedback form, inquiry, and so on. |
| License: | MIT + file LICENSE |
| Encoding: | UTF-8 |
| RoxygenNote: | 7.2.2 |
| Imports: | shiny, shiny.i18n, httr, shinybrowser |
| Suggests: | knitr, rmarkdown |
| VignetteBuilder: | knitr |
| NeedsCompilation: | no |
| Packaged: | 2022-12-22 02:19:35 UTC; limcw |
| Author: | Changwoo Lim 
[aut, cre] |
| Repository: | CRAN |
| Date/Publication: | 2022-12-22 20:20:02 UTC |
send_email
Description
Send email using emailjs service.
Usage
send_email(
service_id,
user_id,
template_id,
template_params = list(),
access_token = NULL
)
Arguments
service_id |
emailjs.com Service Id |
user_id |
emailjs.com User Id or Public Key |
template_id |
emailjs.com Template Id |
template_params |
Params passed to emailjs.com. You should set template at emailjs.com in prior. |
access_token |
emailjs.com Access Token or Private Key. Default is NULL in case of you don't use access token. |
Value
response() Return A response() object of httr, including response of emailjs server
Note
You should allow EmailJS API for non-browser applications.
Examples
library(emailjsr)
send_email("service_id", "user_id", "template_id", "access_token", list(name = "John Doe"))
use_emailjsr_server
Description
emailjs.com R support with preset modal
Usage
use_emailjsr_server(
id,
service_id,
user_id,
template_id,
access_token,
language = "en"
)
Arguments
id |
Should be same to id of use_emailjsr_ui |
service_id |
emailjs.com Service Id |
user_id |
emailjs.com User Id |
template_id |
emailjs.com Template Id |
access_token |
emailjs.com Access Token |
language |
Language of modal. "en" for English, and "ko" for Korean. |
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",
language = "en"
)
}
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"
)
}