Highchart R型股票未在Rmarkdown中呈现

时间:2019-08-09 15:37:21

标签: r r-highcharter

我编写了一个函数,该函数返回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,还对函数进行了分类,打印了功能,在函数的内部和外部显示了函数,但没有任何效果

0 个答案:

没有答案