shared datatable between tabs?

datatable_between_tabs

library(shiny)
runApp(list(
  ui = fluidPage(
    tags$head(tags$style("tfoot {display: table-header-group;")), # move filters to the tob of dataTable
    
    sidebarLayout(
      sidebarPanel("Sharing Data between Tabs"),
      
      mainPanel(
        tabsetPanel(
          id="tabs",
          tabPanel("iris", 
                   dataTableOutput("mytable")),
          tabPanel("regression", 
                   
                   # print coefficient table
                   uiOutput("model_text"),
                   tableOutput("regTab"))
          )
        )
    )
  ),
  server = function(input, output) {
    
    df <- reactive({
      iris[sample(nrow(iris)),]
    })
    
    output$mytable = renderDataTable(
      df()
    )
    
    # Linear Regression
    runRegression <- reactive({
      df <- as.data.frame(df())
      
      # run regression  
      lm(df$Petal.Length ~ df$Petal.Width)
    })
    
    # anova table
    output$model_text <- renderUI({
      h3("Model Coefficient Table")
    })
    
    # Coefficient Table
    output$regTab <- renderTable({
      lm_sum <- summary(runRegression())
      coefs <- as.data.frame(lm_sum$coefficients)
      coefs[,4] <- signif(coefs[,4], 4)
      coefs[,4] <- as.character(coefs[,4])
      coefs
    }, digits=4)
  }
))

Did you find a solution for this? Thanks