EasyHTMLReport (version 0.1.1)

simpleHtmlReport: simple html report

Description

send a simple email report from data.frame

Usage

simpleHtmlReport(report.name, mail.from, mail.to, subject, report.data, rmd.header=simpleRmdHeader,rmd.footer=simpleRmdFooter)

Arguments

report.name

report name

mail.from

mail from

mail.to

mail to

subject

mail subject

report.data

report data list.

rmd.header

Generating function in the header of the Rmd

rmd.footer

Generating function in the footer of the Rmd

Value

None

Details

report.data can specify the following:

data

data.frame

id

Column name that is the ID. default is id

variable

Column name that is the variable. default is variable

value

Column name that is the value. default is value

graph.text

Text to be inserted just before the graph. default is "Graph:"

fig.width

figure width. default is 8

fig.height

figure height. default is 4

position

graph position.

graph.rmd.func

Generating function in the graph of the Rmd. default is simpleRmdGraphDateLine

table.text

Text to be inserted just before the table. default is "Table:"

table.rmd.func

Generating function in the graph of the Rmd. default is simpleRmdXtableTail

Examples

## Not run: 
# A <- data.frame(id=c("2013-08-01","2013-08-02","2013-08-03",
#                   "2013-08-04","2013-08-05"),
#                 variable="A",
#                 value=c(100,123,130,125,140))
# B <- data.frame(id=c("2013-08-01","2013-08-02","2013-08-03",
#                   "2013-08-04","2013-08-05"),
#                 variable="B",
#                 value=c(90,100,120,140,110))
# C <- data.frame(id=c("2013-08-01","2013-08-02","2013-08-03",
#                   "2013-08-04","2013-08-05"),
#                 variable="C",
#                 value=c(150,130,150,160,150))
# 
# data1 <- rbind(A,B,C)
# 
# set.seed(2)
# data2 <- data1
# data2$value <- data2$value*100 + rnorm(nrow(data2),0,100)
# 
# set.seed(4)
# data3 <- data1
# data3$value <- data2$value*100 + rnorm(nrow(data2),0,50)
# 
# simpleHtmlReport("Simple HTML Report",
#                  "yokkuns@localhost",
#                  "[e-mail]",
#                  "simpleHtmlReport Test",
#                  report.data=list(
#                      "Report1" = list(data=data1),
#                      "Report2" = list(data=data2),
#                      "Report3" = list(data=data3)
#                  ))
# ## End(Not run)