How do I convert this into a shiny module

Can you provide a MWE of modularized shiny code that uses renderUI? I'd like an example to follow.

There is an excellent tutorial that discusses this here: https://shiny.rstudio.com/articles/modules.html however, it doesn't show how to integrate the modularization of renderUI components in the ui nor in the server.

Here's what I've tried so far:

In my ui code, I had:

  htmlOutput("selectionUI")

In my server code, I had:

  output$selectionUI <- renderUI({
    req(input$Filter)
    selectInput(
      inputId = "Selection",
      label = "Selection",
      choices = get("qlist", envir = get(input$source))[[input$Filter]]$responses)
  })

Now I would like to modularize this becuase it's a sometimes repeated element, but I'm not sure how to actually insert it into my ui/server code once I'm done.

Here's what I've tried:

selectionChooserUI <- function(id) {
  ns <- NS(id)
  uiOutput(ns('controls'))
}

selectionChooser <- function(input, output, session, data, sourcedata, filter) {
  output$selectionUI <- renderUI({
    req(input$Filter)
    ns <- session$ns
    selectInput(
      inputId = ns('Selection'),
      label = 'Selection',
      choices = get('qlist', envir = get(input[[sourcedata()]]))[[input[[filter()]]]]$responses
    )
  })
}

What do I have to put into my ui code to get it to diplay, currently I'm getting complaints that "output" is missing with no default?

I'm calling it presently in my ui code, using:

selectionChooserUI("selection")