Nothing
#' Make a HTML5 file with a data.frame
#' @param data A data.frame
#' @param preprocessing A character string of R code
#' @param path A name of destination file path
#' @param filename A name of destination file
#' @param rawDataName The name of the rawData
#' @param rawDataFile The name of the rawData file which the data are to be read from.
#' @param type character "HTML" or "pdf"
#' @param vanilla logical. Whether or not make vanilla table
#' @param echo Logical. Whether or not show R code of plot and table
#' @param showself Logical. Whether or not show R code for the paragraph
#' @param out An object or NULL
#' @importFrom rmarkdown render
#' @importFrom moonBook mytable
#' @importFrom ztable ztable
#' @importFrom flextable width
#' @export
#' @examples
#' \dontrun{
#' library(moonBook)
#' library(rrtable)
#' library(ggplot2)
#' data2HTML(sampleData2)
#' }
data2HTML=function(data,preprocessing="",path=".",filename="report.HTML",rawDataName=NULL,rawDataFile="rawData.RDS",
type="HTML",vanilla=FALSE,echo=TRUE,showself=FALSE,out=NULL){
mode=0
owd=getwd()
if (is.null(path)) {
path=tempdir()
setwd(path)
mode=1
} else{
if(!file.exists(path)) dir.create(path)
path=paste0(owd,"/",path)
setwd(path)
}
if((type=="pdf")&(filename=="report.HTML")) filename="report.pdf"
if((type=="docx")&(filename=="report.HTML")) filename="report.docx"
if((type=="pptx")&(filename=="report.HTML")) filename="report.pptx"
file.create("report2.Rmd")
tempReport <- "report2.Rmd"
if(ncol(data)==3) {
shortdata=1
} else {
shortdata=0
}
data$type=tolower(data$type)
if("title" %in% data$type) {
mytitle=data[data$type=="title",]$text[1]
if(shortdata) mytitle=data[data$type=="title",]$code[1]
data=data[data$type!="title",]
} else{
mytitle="Web-based Analysis with R"
}
mysubtitle=""
if("subtitle" %in% data$type) {
mysubtitle=data[data$type=="subtitle",]$text[1]
if(shortdata) mysubtitle=data[data$type=="subtitle",]$code[1]
data=data[data$type!="subtitle",]
}
if("author" %in% data$type) {
myauthor=data[data$type=="author",]$text[1]
if(shortdata) myauthor=data[data$type=="author",]$code[1]
data=data[data$type!="author",]
} else{
myauthor="prepared by web-r.org"
}
mycat("---\ntitle: '",mytitle,"'\n")
if(mysubtitle!=""){
mycat("subtitle: '",mysubtitle,"'\n")
}
mycat("author: '",myauthor,"'\n")
mycat("date: '`r Sys.time()`'\n")
if(!is.null(out)){
mycat("params:\n")
mycat(" out: out\n")
}
mycat("---\n")
mycat("```{r setup, include=FALSE}\n")
mycat("knitr::opts_chunk$set(echo =",echo,",error=TRUE,message=FALSE,warning=FALSE,comment=NA,
fig.width=9,fig.asp=0.618,fig.align='center',dpi=300,out.width='70%')\n")
mycat("```\n")
if(!is.null(out)){
mycat("```{r,echo=FALSE}\n")
mycat("out<-params$out\n")
mycat("for(i in seq_along(out)){assign(names(out)[i],out[[i]])}\n")
mycat("```\n")
}
mycat("```{r,echo=",echo,",message=FALSE,warning=FALSE}\n")
mycat("require(moonBook)\n")
mycat("require(rrtable)\n")
mycat("require(ggplot2)\n")
mycat("require(webrSub)\n")
mycat("require(ggthemes)\n")
mycat("```\n\n")
if(!is.null(rawDataName)){
mycat("```{r}\n")
mycat("# Read Raw Data\n")
temp=paste0("rawData=readRDS('",rawDataFile,"')\n")
mycat(temp)
temp=paste0("assign('",rawDataName,"',rawData)\n")
mycat(temp)
mycat("```\n\n")
}
if(preprocessing!="") {
mycat("```{r}\n")
mycat("# Preprocessing\n")
mycat(preprocessing,'\n')
mycat("```\n\n")
}
mypptlist=data
count=nrow(mypptlist)
if(shiny::isRunning()){
progress <- shiny::Progress$new()
on.exit(progress$close())
progress$set(message = "Making File", value = 0)
} else{
cat("Making File:")
}
for(i in 1:count){
if(isRunning()){
progress$inc(1/(nrow(data)), detail = paste("Doing part", i,"/",nrow(data)))
} else(
cat(i)
)
if(showself){
mycat("\n\n")
mycat("```{r}\n")
mycat(paste0("df2flextable2(data[",i,",])\n"))
mycat("```\n\n\n")
}
if(mypptlist$type[i] %in% c("##","###")){
mycat(mypptlist$type[i],mypptlist$title[i],"\n\n")
} else {
if(!(mypptlist$title[i] %in% c("","eval"))) mycat("###",mypptlist$title[i],"\n\n")
}
if(shortdata==0){
if(mypptlist$text[i]!="") mycat(mypptlist$text[i],"\n\n")
}
if(mypptlist$type[i]=="mytable") {
mycat("```{r}\n")
mycat("mytable2flextable(",mypptlist$code[i],",vanilla=",vanilla,")\n")
mycat("```\n\n")
} else if(mypptlist$type[i]=="data"){
mycat("```{r}\n")
mycat("df2flextable2(",mypptlist$code[i],",vanilla=",vanilla,")\n")
mycat("```\n\n")
} else if(mypptlist$type[i]=="data2"){
mycat("```{r}\n")
mycat("myFlextable(",mypptlist$code[i],")\n")
mycat("```\n\n")
} else if(mypptlist$type[i]=="table") {
mycat("```{r,results='asis'}\n")
mycat(mypptlist$code[i],"\n")
mycat("```\n\n")
} else if(mypptlist$type[i] %in% c("rcode","Rcode","Pre","pre")) {
mycat("```{r,echo=TRUE}\n")
mycat(mypptlist$code[i],'\n')
mycat("```\n\n")
} else if(mypptlist$type[i] == "code") {
mycat("```{r,echo=TRUE,eval=FALSE}\n")
mycat(mypptlist$code[i],'\n')
mycat("```\n\n")
} else if(mypptlist$type[i]=="eval") {
mycat("```{r,echo=FALSE,eval=TRUE}\n")
mycat(mypptlist$code[i],'\n')
mycat("```\n\n")
} else if(mypptlist$type[i] %in% c("2ggplots","2plots")){
mycat("```{r,out.width='50%',fig.align='default',fig.show='hold'}\n")
mycat(mypptlist$code[i],'\n')
mycat("```\n\n")
} else if(mypptlist$type[i]=="text") {
mycat(mypptlist$code[i],'\n')
} else if(mypptlist$type[i] %in% c("out")) {
if(is.null(out)){
mycat("```{r,echo=TRUE}\n")
} else{
mycat("```{r,echo=TRUE,eval=FALSE}\n")
}
mycat(mypptlist$code[i],'\n')
mycat("```\n\n")
} else if(mypptlist$code[i]!=""){
mycat("```{r",ifelse(shortdata,"",mypptlist$option[i]),"}\n")
mycat(mypptlist$code[i],'\n')
mycat("```\n\n")
}
mycat("\n\n")
}
if(type=="HTML"){
output_format <-rmarkdown::html_document()
}else if(type=="docx"){
output_format <- rmarkdown::word_document()
} else if(type=="pptx"){
output_format <- rmarkdown::powerpoint_presentation()
} else {
output_format <- rmarkdown::pdf_document()
}
if(is.null(out)){
out <- rmarkdown::render('report2.Rmd', output_format)
}else{
out <- rmarkdown::render('report2.Rmd', output_format, params=list(out=out))
}
result=file.rename(out, filename)
#file.remove("report2.Rmd")
setwd(owd)
path=str_replace(path,"//","/")
paste0(path,"/",filename)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.