Как добавить несколько выходов (карта + текст) на основе selectInput

Question

Я пытаюсь добавить карту листовки и текст под картой, если для моего selectInput выбрано "2017".Я пробовал taglist (), renderUI () и renderLeaflet (), чтобы добавить карту и текст, но код не работает.

Я могу отобразить карту самостоятельно с помощью renderLeaflet (), но когда я хочу добавить текст под картой, он больше не работает.

ui.r
selectInput("class", label = "Choose a Class",
    choices = c("All Classes",
        "Class of 2017" = "2017",
        "Class of 2018" = "2018",
        "Class of 2019" = "2019"
    ))
uiOutput("mymap", height = 800)

server.r
output$mymap < -renderUI({
    if (input$class == 2017) {
        leaflet(data = data) % > % addTiles() % > %
            addMarkers(~Longitude, ~Latitude, popup = ~paste("Location", Institution, "<br>", "City: ", City, State))
        HTML(paste("Note: 1 Student represents Hawaii"))
    }
})