您在selectInput中缺少ns

selector_input_ui <- function(id) {
  ns <- NS(id)
  tagList(
    uiOutput(ns("selectoor"))
  )
  
}

selector_input_server <- function(id) {
  
  moduleServer(
    id,
    function(input, output, session) {
      ns <- session$ns
      res_list <- reactive({
        # code for creating a list from data in a database
        ## mock-up list:
        list("choice1", "choice2", "choice3")
      })
      
      output$selectoor <- renderUI({
        selectInput(inputId = ns("selected"),
                    label = "Select",
                    choices = res_list() #,
                    # selected = res_list()[[1]]
                    )
      })
      
      return(
        reactive({
          input$selected
        })
      )
    }
  )
}


library(shiny)

ui <- fluidPage(
  selector_input_ui("menu"),
  verbatimTextOutput("printt")
)

server <- function(input, output, session) {
  selected_choice <- selector_input_server("menu")
  
  output$printt <- renderPrint({
    
    selected_choice()
  })
}

shinyApp(ui, server)