Shiny output and R MarkDown render_site（）

Question

我在使用render_site（）（rmarkdown包）试图导出两页网站时遇到了在R MarkDown文档中使用Shiny输出的问题

下面是创建我的问题的代码块（位于knitr或.Rmd文件之一内）：

uiOutput("main") 

output$main <- renderUI({ 
    if(test$n != 0){ 
    plotOutput("mainPlot", height = test$n*length(input$yAxes)*400) 
    } 
}) 

output$mainPlot <- renderPlot({do.call("grid.arrange", c(test$plots, ncol = 1))}) 

加工时，render_site（）告诉我，“输出”对象没有定义。单独运行.Rmd文件可以正常运行;该问题仅在尝试将其包含为网站时才会出现。 最后，当我删除上面的行时，网站被成功创建。

输出$ foo不被R MarkDown支持还是我缺少一些愚蠢的东西？

非常感谢你提前，

问候， 保罗

---

PS：我明明搜索询问之前，我一直在努力，现在摸不着头脑了几个小时._。

Answer 1

您是否尝试将输出生成代码放入函数中？

server <- function (input, output) { 
    output$main <- renderUI({ 
    if(test$n != 0){ 
    plotOutput("mainPlot", height = test$n*length(input$yAxes)*400) 
    } 
    }) 

    output$mainPlot <- renderPlot({do.call("grid.arrange", c(test$plots, ncol = 1))}) 
}