我编写了一个函数,该函数返回stock类型的高手推车,该函数在循环内被调用,并且Rmarkdown标题是动态生成的。
尽管如此,似乎没有什么可以帮助渲染图形。我们已经尝试了一切
Tranfunction=function(i,j,table,var_group){
table$aux=table[,var_group]
Graphtran<-highchart(type="stock")%>%
hc_yAxis(title=list(text="Taux de résiliation AN"),labels = list(format = "{value}%"))%>%
hc_title(text=paste("Taux de résiliation AN",i,"par formule pour la caisse régionale",j,sep=" "))%>%
hc_xAxis(title=list(text="Date"),values=levels(table$date),tickmarkPlacement="on",categories=table$aux)%>%
hc_add_series(data=table,type="line",mapping=hcaes(x=date, y=tran,group=aux))%>%
hc_legend(
enabled=true,
align='right',
verticalAlign='top',
layout='vertical',
x= 0,
y= 100
)
print(Graphtran)
return(Graphtran)
}
# levels(histo$produit)
library(highcharter)
for(i in c("A2")){
cat(" \n#",i,'\n')
histoproduit <-histo%>%
filter(produit == i)
# levels(histoproduit$cr)
for (j in c("831")){
cat(" \n##",j,'\n')
histoCR<-histoproduit%>%
filter(cr==j)
# if(i=="A4"){
# for(k in levels(histoCR$formu)){
# cat(" \n###",k,'\n')
# histoformu<-histoCR%>%
# filter(formu==k)
# Trpfunction(histoformu,histoformu$coefabc_cl)
# Tranfunction(histoformu,histoformu$coefabc_cl)
#
# }
hplot=Tranfunction(i,j,histoCR,"formu")
Tranfunction(i,j,histoCR,"formu")
lst=as.list(c())
lst[[1]]<-hplot
htmltools::renderTags(lst)
print(hplot)
# cat('\n')
print(hplot)
lst=as.list(c())
lst[[1]]<-hplot
hplot
cat(htmltools::renderTags((lst))$html)
cat('\n')
}
}
我们尝试了htmltools:rendering,还对函数进行了分类,打印了功能,在函数的内部和外部显示了函数,但没有任何效果