时间戳

首页 > 解决方案 > 将具有三个输入的自己的函数应用于数据框

r - 将具有三个输入的自己的函数应用于数据框

问题描述

我有这个通过库发送邮件的功能，RDCOMClient. 我之前使用过两个输入，两个输入都来自使用map2函数 from的数据帧purrr。

现在我已经将该函数扩展为包含三个输入，但我似乎无法将其正确应用于数据帧。

我的数据是这样的：

df <- data.frame(Name = c("Name 1", "Name 2"),
                 Old_mail = c("Old mail 1", "Old mail 2"),
                 New_mail = c("New mail 1", "New mail 2"))

我的功能：

library(RDCOMClient)
mail_fun <- function(name, old_mail, new_mail){

  # Open Outlook
  OutApp <- COMCreate("Outlook.Application")

   # Create mail
  outMail = OutApp$CreateItem(0)

  # Set receiver
  outMail[["To"]] = as.character(new_mail)

  # Set subject
  outMail[["subject"]] = "Some subject"

  # Set body
  outMail[["body"]] = paste(

"Dear ", name,

" \n \nBla bla bla", old_mail, "bla bla bla", sep="")

  # Send mail
  outMail$Send()

  # Pause for a second
  Sys.sleep(1)

}

现在我想将函数应用到每一行，这样Name 1,Old mail 1和分别New mail 1用于name,old_mail和new_mail, 用于第一次迭代等等。

据我所知，我必须使用该pmap功能。我只是不知道怎么做。

提前致谢！

真挚地，

埃米尔·布利彻

标签： rfunctional-programmingpurrrrdcomclient

解决方案

函数参数名称应与数据框列名称匹配

COM <- function(Name, Old_mail, New_mail) {
           #browser()
           paste(Name, Old_mail, New_mail)
}

purrr::pmap(df, COM)
[[1]]
[1] "Name 1 Old mail 1 New mail 1"

[[2]]
[1] "Name 2 Old mail 2 New mail 2"

推荐阅读