我搜索了SO和谷歌,似乎无法找到我的问题的解决方案.我正在尝试使用sendmailR包在R中发送HTML格式的电子邮件.纯文本电子邮件工作正常,但后来无法从纯文本切换到HTML.
我的代码:
require(sendmailR)
from <- "alertbot@companyname.com"
message = "<HTML><body><b>Hello</b></body></HTML>"
to = c("me@companyname.com")
subject = "Test Monitor Alert"
sendmail(from, to, subject, msg = msg,control=list(smtpServer="smtp-gw1.wal-mart.com"),headers=list("Content-Type"="text/html; charset=UTF-8; format=flowed"))
我收到了电子邮件,但它是纯文本和电子邮件正文包含消息而不是HTML格式的文本.请帮忙.
在过去,我使用了dateInput和滑块的组合来获取闪亮应用的日期和小时.我想知道现在是否有更好的选择,因为我需要收集最新的输入.
在线搜索没有帮助,所以要求SO.
谢谢
这已经在各个地方被问过SQL,但是在R中找不到一个简单的方法
我有这样的数据集
Ids v1 v2 v3 v4 v5
548|14721,678|17604,716|18316,732|18505,745|18626,752|18716 9186 639 9045 316 28396
548|14721,678|17603,716|18316,732|18507,745|18626,752|18716 9041 598 8897 283 28054
548|14722,678|17603,716|18316,732|18507,745|18626,752|18716 8799 588 8669 246 27433
548|14721,678|17603,716|18316,732|18505,745|18626,752|18715 8914 614 8765 273 27347
716|18316,745|18626 4113 497 4050 270 27267
548|14722,678|17604,716|18316,732|18507,745|18626,752|18716 8829 589 8713 254 25270
我想基于逗号的第一列进行拆分,并为每个条目创建一行,重复其余行中的条目.
我写的功能是
split.data <- function(data, split = ",") {
y <- NULL
for( i in 1:nrow(data)){
y <- rbind(y,cbind(data.frame(unlist(strsplit(as.character(data[i,1]), split = split))),data[i,-1]))
}
names(y) <- names(data)
y <- sapply(y,as.character)
return(as.data.frame(y))
}
这有效,但速度极慢.有没有办法对此进行矢量化并使其更快.我的文件有超过5000个这样的行,运行需要一段时间.
我在SQL中找到的相关文章: 在多行上拆分值 将逗号分隔的字符串转换为单独的行
我还是ggplot2的新手.我想绘制一个盒子图,但我没有原始数据,我有摘要点.
Page_Type ID Count min 5% 25% 50% 75% 95% Max Avg
3 24559 173 408 479.45 615.25 800.5 1547.25 4436.8 7068 1350.138462
3 24560 101 0 480 631 871 1762 5183 65177 2702.245902
6 24559 69 490 664 1181 1807 3221 4845.5 6397 2287.45098
6 24560 10 1086 1254.4 1928 1970 2007 5236.6 6044 2607
46 24559 49 217 252.45 438.75 595 1198 2647.15 4316 939.6666667
46 24560 31 266 337 467 640 1123 2531.6 5232 989.2758621
69 24559 …