DT:: tableau interactif et actualisation de variable

[emmanuel Dupont]

Bonjour, Je recherche comment faire pour que ma variable 'table_interactive' s'actualise des valeurs de 'output$mytable' lorsque je clic sur 'GO'. Les valeurs visibles dans 'output$mytable' doivent être les valeurs contenues dans 'table_interactive' après chaque clic sur 'GO'
Merci pour votre aide. J'ai placé un print afin que vous puissiez voir si effectivement les valeurs correspondent bien.. Donc en effectuant un filtrage des valeurs puis en cliquant sur GO vous devriez avoir les mêmes informations dans la variable 'table_interactive' et dans la valeur affichée avec la fonction print

Code : Tout sélectionner

library(shinyBS)
library(DT)
mytable <- reactiveValues()
data("mtcars")
server <- function(input, output, session) {
 
   df <- reactive({
      if(input$buttonfilter %% 9 == 1){
        df.sub <- mtcars
   } else {
     df.sub <- subset(mtcars, subset = am == '1')
   }
   df.sub
   })
  output$mytable <- DT::renderDataTable(isolate(df()), filter = 'top')
  proxy <- dataTableProxy('mytable')
  table_Interactvie <- mytable
 print(table_Interactvie )
  observe({
    replaceData(proxy, df(), resetPaging = FALSE)
  })
}
ui <- fluidPage(h3('données'),
                 bsButton("buttonfilter","Show only ma", type = 'toggle'),
                actionButton(inputId = "go", label = "Go"),
                br(),br(),
                DT::dataTableOutput('mytable')
)
shiny::shinyApp(ui=ui,server=server)

[Mickael Canouil]

Ce n'est pas en ouvrant un nouveau billet que vous allez obtenir plus de réponse ...
viewtopic.php?f=3&t=10163