Shiny output 및 R MarkDown render_site()

Question

render_site() (rmarkdown 패키지)를 사용하여 두 페이지로 된 사이트를 내보낼 때 R MarkDown 문서에서 Shiny 출력을 사용하는 것과 관련된 문제가 발생했습니다

처리, render_site()가 나에게 말한다 때

가

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))}) 

이 는 "출력"개체가 정의되어 있지 않은 것을 :

여기 (A knitr 또는 .Rmd 문서 중 하나에 위치) 내 문제를 만드는 코드의 덩어리입니다 . .Rmd 파일 만 실행하면 정상적으로 작동합니다. 이 문제는 웹 사이트로 포함하려고 할 때만 나타납니다. 마지막으로, 위의 행을 제거하면 웹 사이트가 성공적으로 만들어집니다.

출력물은 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))}) 
}