How do I update userMessages in R shiny which were inserted via renderUI and uiOutput?

Question

When I insert a userMessages -UI via renderUI and uiOutput into a shinydashboard then updateUserMessages doesn't update the messages.

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

ui <- fluidPage(
    dashboardPage(
        dashboardHeader(),
        dashboardSidebar(),
        dashboardBody(
            fluidRow(
                uiOutput("user_messages"),
                textInput("message_text",label="", value = ""),
                actionButton("message_send", "Send")
            )
        )
    )
)

server <- function(input, output, session) {
    
    output$user_messages <- renderUI({
        userMessages(
            width = 6,
            status = "danger",
            id = "user_messages",
            userMessage(
                author = "David",
                date = "20 Jan 2:00 pm",
                image = "",
                type = "received",
                "Message text"
            )
        )
    })
    
    observeEvent(input$message_send, {
        print("Button clicked")
        shinydashboardPlus::updateUserMessages(
            "user_messages",
            action = "add",
            content = list(
                author = "David",
                date = "Now",
                image = "",
                type = "sent",
                text = input$message_text
            )
        )
    })
}

shinyApp(ui, server)

I want to achieve an app working like this:

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

ui <- fluidPage(
    dashboardPage(
        dashboardHeader(),
        dashboardSidebar(),
        dashboardBody(
            fluidRow(
                userMessages(
                    width = 6,
                    status = "danger",
                    id = "user_messages",
                    userMessage(
                        author = "David",
                        date = "20 Jan 2:00 pm",
                        image = "",
                        type = "received",
                        "Message text"
                    )
                ),
                textInput("message_text",label="", value = ""),
                actionButton("message_send", "Send")
            )
        )
    )
)

server <- function(input, output, session) {

    observeEvent(input$message_send, {
        print("Button clicked")
        shinydashboardPlus::updateUserMessages(
            "user_messages",
            action = "add",
            content = list(
                author = "David",
                date = "Now",
                image = "",
                type = "sent",
                text = input$message_text
            )
        )
    })
}

shinyApp(ui, server)

Answer 1

As @ismirsehregal suggested I used insertUI and it works like I expect it to do:

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

ui <- fluidPage(
    dashboardPage(
        dashboardHeader(),
        dashboardSidebar(),
        dashboardBody(
            fluidRow(
                id="user_messages_row",
                textInput("message_text",label="", value = ""),
                actionButton("message_send", "Send")
            )
        )
    )
)

server <- function(input, output, session) {
    
    insertUI(
        selector = '#user_messages_row',
        where = 'afterBegin',
            userMessages(
                    width = 6,
                    status = "danger",
                    id = "user_messages",
                    userMessage(
                        author = "David",
                        date = "20 Jan 2:00 pm",
                        image = "",
                        type = "received",
                        "Message text"
                    )
                )
    )
    
    observeEvent(input$message_send, {
        print("Button clicked")
        shinydashboardPlus::updateUserMessages(
            "user_messages",
            action = "add",
            content = list(
                author = "David",
                date = "Now",
                image = "",
                type = "sent",
                text = input$message_text
            )
        )
    })
}

shinyApp(ui, server)