my.df <- data.frame(EGID = c("103", "104", "105", "106", "107"),
RPKM = c(4, 5, 3, 100, 75),
DE = c("Yes", "Yes", "No", "No", "No"))
html.report <- makeOldHTMLReport(shortName = "my_html_file",
reportDirectory = "reportDirectory")
publish(my.df, html.report)
Run the code above in your browser using DataLab