有闪亮的反应性问题

Question

我尝试显示与Selecinput标准匹配的行数，并有可能添加注释。 每次有人添加评论时，它都会添加一行，我想更新行数。 （实际上，我正在处理一个评论部分，我想在其中显示播放器中的所有注释并显示提交的所有新评论）

，以输出$ texte，当SelectInput更改时，DF是子集，因此反应性工作。当我有观察到的时，DF就会保存，但没有反应性。当我切换选定的播放器时，它永远不会考虑到DF的变化，就像他一次导入DF并且从未为显示器更新它。

感谢您的帮助

df<-data.frame(nom=c("name1","name2","name3","name"1),
              comment=c("comment 1","comment 2","comment 3","comment4"))

ui<-  sidebarLayout(
        sidebarPanel(
          selectInput(
            inputId="select_j",
            label="choose name",
            choices=c("name1","name2","name3")
          )
        ),
        mainPanel(
          fluidRow(textOutput("texte")),
          fluidRow(textInput(
            inputId = "comment",
            label="Make a comment")),
          actionButton("submit", "Submit"))
    
)

server<-function(input,output){
  df_filter=reactive({df %>% subset(nom %in% input$select_j)})
  
  observeEvent(input$submit,{
    new_line=c(input$select_j,input$comment)
    df[nrow(df) + 1,] <- new_line
    write.csv2(df,"save.csv")
  })
  
  output$texte <- renderText({ 
    input$submit
    nrow(df_filter())
  })

}

shinyApp(ui, server)

Answer 1

我找到了解决方案（也许不是唯一的解决方案）。

df必须设置为reactiveVal，然后在观察事件时进行更新

df<-data.frame(
    nom=c("name1","name2", "name3"),
    comment=c("comment 1", "comment 2", "comment 3")
)

ui<-sidebarLayout(
    sidebarPanel(
        selectInput(
            inputId="select_j",
            label="choose name",
            choices=c("name1","name2","name3")
        )
    ),
    mainPanel(
        fluidRow(textOutput("texte")),
        fluidRow(textInput(
            inputId="comment",
            label="Make a comment")
        ),
        actionButton("submit", "Submit"))
    )

    server<-function(input, output) {
        df_r=reactiveVal(df)
        df_filter=reactive({
            df_r() %>% subset(nom %in% input$select_j)
        })
  
        observeEvent(input$submit,{
            new_line=c(input$select_j, input$comment)
            new_df<-rbind(df_r(), new_line)
            df_r(new_df) #update the reactive value
            write.csv2(new_df, "save.csv")
        })
  
        output$texte <- renderText({ 
            input$submit
            nrow(df_filter())
        })
    }

    shinyApp(ui, server)