dataEditServer - change of input dataset not working inside of modal

[lhabegger]

First of all - thanks a lot for the great work.

Then: I am not sure if this issue is in any way related to #24 however, at least the outcome is different.

in the following simplified shiny application changing the dataset via selectInput and then choosing to Modify it via button does not work. Upon selection of second dataset, the resulting datatable is changed correctly. However when "modify" is pressed and the Modal appears the old dataset ("mtcars") is displayed again

library(shiny)

ui <- fluidPage(

  selectInput(inputId = "datasetSelector", label = "Choose Data Set",
              choices = c("mtcars", "iris")),
  actionButton("modify","Modify"),
  DT::dataTableOutput("mytable")

)

server <- function(input, output) {

  dataset <- reactive({
    get(input$datasetSelector)
  })

  observeEvent(input$modify,{
    showModal(modalDialog(
      DataEditR::dataEditUI("editor")
    ))
  })

  editedTbl <- DataEditR::dataEditServer("editor", data = dataset)

  output$mytable = DT::renderDataTable({
    editedTbl()
  })

}

# Run the application
shinyApp(ui = ui, server = server)