我想在 UI 中創建一個操作按鈕，單擊該按鈕會激活以下在服務器中發送電子郵件的功能：
server <- function(input, output){
output$sendmail <- function(){
#install.packages("RDCOMClient")
# library("RDCOMClient")
## init com api
OutApp <- COMCreate("Outlook.Application")
## create an email
outMail = OutApp$CreateItem(0)
## configure email parameter
outMail[["To"]] = "[email protected]"
outMail[["subject"]] = "Greetings"
outMail[["body"]] = "Hello"
## send it
path_to_file = "C:/Users/Desktop/myFile.pdf"
outMail[["Attachments"]]$Add(normalizePath(path_to_file))
outMail$Send()
}
}
目前在 UI 我有以下但不作業：
ui<-fluidpage(
actionButton("sendmail","Send confirmation")
)
有什么建議么？
*該功能在我沒有 actionButton 的情況下可以正常作業
uj5u.com熱心網友回復：
您可以observeEvent在單擊按鈕時觸發某些功能sendmail，如下所示：
observeEvent(input$sendmail, {
## init com api
OutApp <- COMCreate("Outlook.Application")
## create an email
outMail = OutApp$CreateItem(0)
## configure email parameter
outMail[["To"]] = "[email protected]"
outMail[["subject"]] = "Greetings"
outMail[["body"]] = "Hello"
## send it
path_to_file = "C:/Users/Desktop/myFile.pdf"
outMail[["Attachments"]]$Add(normalizePath(path_to_file))
outMail$Send()
}
)
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/464562.html
上一篇：從列中查找所有可能的組合，并組合它們的pandas值
下一篇：在函式中創建字典并在子中使用它