问题描述
我有许多合作伙伴的文本文件,这些合作伙伴支持不同服务级别的产品。
合作伙伴;电子邮件;电话;Servicekarte;Unternummer;Fachhandel;Handel Partner1;info@partner1.de;;9203;1;;product1,product2 Partner2;info@partner2.de,service@partner2.de;0621-12345678,0621-12345678;9225;1;product3;
我用 read_delim 读取了这个文件,并将结果放入数据帧“合作伙伴”中。合作伙伴[2,"Email"] 的结果是 info@partner2.de,service@partner2.de。
现在我想向合作伙伴 [2,"Email"] 中的所有地址发送带有囊胚的邮件。 Blastula 需要一个用于接收者的变量 to = c("info@partner2.de","service@partner2.de")
。
我的问题是如何从 partners[2,"Email"]
获取变量 to解决方法
您可以使用 strsplit()
在特定字符上分割文本字符串。它将返回一个长度为 1 的列表,因此要在向量中获得所需的结果,您只需对其进行子集
x <- "info@partner2.de,service@partner2.de"
to <- strsplit(x,",")[[1]]
to
# [1] "info@partner2.de" "service@partner2.de"
,
您还可以使用 sub()
拆分数据:
x <- "info@partner2.de,service@partner2.de"
part_two <- sub(".*,"",x)
part_one <- sub(",.*",x)
to <- c(part_one,part_two)
to
# [1] "info@partner2.de" "service@partner2.de"