R shiny - 동일한 분석을 위해 여러 출력 렌더링

Question

오히려 시간이 많이 소요되는 분석이있는 경우 모델을 일부 데이터 세트에 맞추어 보겠습니다. renderPlot(), renderTable(), renderText() 등이있을 것이라고 말하면서 모델 피팅의 모든 출력을 표시하고 싶습니다. 내 현재 코드는 다음과 같습니다

위의 예에서

shinyServer(function(input, output,session) { 

output$twang_diagplot <- renderPlot({ 

if(is.null(data())|input$twang_x=='.'|input$twang_y=='.') return(NULL) 

else{ 
    formula <- paste(input$twang_y, "~",paste(input$twang_x,collapse='+')) 

    ps_fit <- ps(as.formula(formula),data=workdata(),verbose=FALSE) 

    plot(ps_fit) 
} 
}) 

output$twang_summary <- renderPrint({ 

if(is.null(data())|input$twang_x=='.'|input$twang_y=='.') return(NULL) 

else{ 
    formula <- paste(input$twang_y, "~",paste(input$twang_x,collapse='+')) 

    ps_fit <- ps(as.formula(formula),data=workdata(),verbose=FALSE) 

    ps_balance <- bal.table(ps_fit) 

    print(ps_balance) 
} 
}) 
}) 

, 내가 별도로 줄거리 및 요약을 생성하기 위해 두 번 PS() 함수를 호출했다. 이것은 매우 비효율적입니다. 내가 respond() 또는 observe()와 같은 함수를 사용해야한다는 것을 알고 있습니다. ps() 함수를 호출 한 후에 두 렌더링 함수를 함께 래핑하는 데 사용할 수는 있지만 사용법은 확실하지 않습니다. 도움을 주셔서 감사합니다. 관련

shinyServer(function(input, output,session) { 
getPsFit <- reactive({ 
formula <- paste(input$twang_y, "~",paste(input$twang_x,collapse='+')) 
ps_fit <- ps(as.formula(formula),data=workdata(),verbose=FALSE) 
ps_fit 
}) 
output$twang_diagplot <- renderPlot({ 
if(is.null(data())|input$twang_x=='.'|input$twang_y=='.') return(NULL) 

else{ 
ps_fit <- getPsFit() 
plot(ps_fit) 
} 
}) 

output$twang_summary <- renderPrint({ 

if(is.null(data())|input$twang_x=='.'|input$twang_y=='.') return(NULL) 

else{ 
ps_fit <- getPsFit() 

ps_balance <- bal.table(ps_fit) 

print(ps_balance) 
} 
}) 
}) 

Answer 1

그것은 다른 인수를 사용하는 ps()에 두 통화처럼 보이는, 그래서 ps 두 번 호출해야하기 때문에 한 번만 호출됩니다이 경우 반응성을 사용할 수 있습니다 모르겠어요

, 나는 그 주위에 방법을 볼 수 없습니다 ...

추신. 이 같은 Shiny tutorial, specifically the section of reactive expressions?
뭔가 지금

getPsFit <- reactive({ 
    formula <- paste(input$twang_y, "~",paste(input$twang_x,collapse='+')) 
    ps_fit <- ps(as.formula(formula),data=workdata(),verbose=FALSE) 
    ps_fit 
}) 

작동합니다
당신이 읽게 코드는 훨씬 더 읽기 :

편집 귀하의 코멘트 이후 수 있도록 좀 더 간격 혜택을 누릴 수 있습니다 답장을 보내 주셔서 감사합니다. 두 문장 모두에있는 두 줄의 코드를 ps_fit <- getPsFit()