중첩 된 출력으로 반짝이는 입력 업데이트가 실패합니다.

Question

다음 최소 예제는 중첩 된 출력을 업데이트 한 다음 출력을 업데이트하기 전의 내용으로 입력을 업데이트하는 문제를 보여줍니다. 이 최소한의 예제는 훨씬 더 큰 프로젝트에서 나옵니다. 따라서 Shiny가 실제로 중첩 출력을 허용하지 않는 한 "출력을 중첩하지 마십시오"와 같은 문제에 대한 솔루션은 실행 가능하지 않습니다.

예제를 실행하면 두 개의 라디오 버튼과 텍스트 입력이 표시됩니다. 텍스트를 입력하고 라디오 버튼을 변경하십시오. 라디오 버튼 이벤트가 처리 된 후 텍스트 입력이 실제로 업데이트 된 것을 볼 수 있습니다. 그러나 라디오 버튼을 두 번째로 변경하면 observeEvent()에있는 텍스트 입력이 비어있게됩니다.

updateTextInput() 기능은 브라우저에서 보는 것을 업데이트하는 것처럼 작동하지만, 다음 이벤트의 입력에 대해 브라우저에서 Shiny가 다시 가져 오는 것과는 다릅니다.

이상한 것을 추가하려면 업데이트 된 텍스트 입력을 어떤 방식 으로든 변경 (예 : 한 문자를 추가 또는 삭제)하면 예상대로 작동합니다. 문제는 나의 코드, 나의 기대, 또는 반짝 반짝 빛나는 버그입니까?

ui <- fluidPage(fluidRow(column(12, tagList(
     uiOutput("outer_div") 
    )))) 

server <-function(input, output, session) { 

updateScreen = function() { 
    output$outer_div = renderUI(uiOutput("inner_div")) 
    output$inner_div = renderUI(tagList(
     radioButtons(inputId = "button", label="", choices = c("A", "B")), 
     textInput("text", label="", value="") 
    )) 
} 
updateScreen() #initialize screen 

    observeEvent(input$button, { 
     print(paste0("Text input is ", input$text)) 
     updateTextInput(session, inputId = "text" , value=input$text) 
     updateRadioButtons(session, inputId="button", selected=input$button) 
     updateScreen() 
    }) 

} 

shinyApp(ui = ui, server = server) 

Answer 1

이 기능이 작동합니까?

ui <- fluidPage(fluidRow(column(12, tagList(
    uiOutput("outer_div") 
)))) 

server <-function(input, output, session) { 

    updateScreen = function() { 
    output$outer_div = renderUI(uiOutput("inner_div")) 
    output$inner_div = renderUI(tagList(
     radioButtons(inputId = "button", label="", choices = c("A", "B")), 
     textInput("text", label="", value="") 
    )) 
    } 
updateScreen() #initialize screen 


    data <- isolate(input$text) 
    observeEvent(input$button, { 
    updateTextInput(session, inputId = "text" , value=data) 
    updateRadioButtons(session, inputId="button", selected=input$button) 
    print(paste0("Text input is ", input$text)) 
    #updateScreen() 
    }) 

} 

shinyApp(ui = ui, server = server)