मॉड्यूल आउटपुट अनुपलब्ध

ऐप काम कर रहा है, लेकिन मॉड्यूल में आउटपुट नहीं दिख रहा है। इस उदाहरण में, sumUI और sumSE मॉड्यूल में textOutput काम नहीं करता है। मैंने मुख्य सर्वर में प्रतिक्रियाशील के समान तर्क का उपयोग करने का प्रयास किया। उदाहरण के लिए, input$var sumSE में जैसे input$select_data मुख्य सर्वर में। चीजें मुख्य सर्वर में काम करती हैं, लेकिन मॉड्यूल सर्वर में काम नहीं करती हैं। क्या कोई कारण है?

library(shiny)

sumUI <- function(id, df) {
  tagList(
    fluidRow(column(4, selectInput(NS(id, "var"), "Variable", choices = names(df())),
                    textOutput(NS(id, "test")))))
}


sumSE <- function(id, df) {
  moduleServer(id, function(input, output, session) {
    data <- reactive(df()[[input$var]])
     output$test <- renderPrint({
       data()
     })
  })
}

list_data <- tibble::lst(islands, iris, mtcars)

ui <- function(request){
  fluidPage(
    selectInput("select_data", "Select Data", choices = c(" ", names(list_data))),
    actionButton("add", "Add New"),
    verbatimTextOutput("output_text"),
    div(id = "add_here")
  )
}

server <- function(input, output, session) {
  
  add_id <- reactiveVal(0)  
  
  df <- reactive(
    get(input$select_data)
  )
  
  output$output_text <- renderPrint({
    input$select_data
  })
  observeEvent(input$add, {
    sumSE(id = paste0("hist_", input$add+add_id()), df = df)
    insertUI(selector = "#add_here", ui = sumUI(paste0("sum_", input$add+add_id()), df = df))
  })
}

shinyApp(ui, server)