Как динамически изменить текст по тегу HTML в приложении Shiny?

Question

Я хотел бы иметь возможность динамически изменять метку на виджете numericInput, а также тег html. Я знаю, как сделать это для виджета numericInput с помощью uiOutput и renderUI. Однако я не уверен, как добиться того же для текста, напечатанного тегом h4.

Ниже представлены следующие значения:

library(shiny)

ui=(fluidPage(
  mainPanel(
    uiOutput("vvv"),
    radioButtons("rb", "Choose conversion", choices = c("A to B"="1", "B to A"="2"),selected = "1"),
    h4("Value B or A (dependant on radio button selection):"),
    verbatimTextOutput("text")
  )
))

server = (function(input, output) {

  output$vvv <- renderUI({
    if (input$rb == 1) {
    numericInput("vvv", "Enter A", value = 1)
    } else {
      numericInput("vvv", "Enter B", value = 2) 
    }
  })


  output$text <- renderPrint(input$vvv*2)


})

# Run the application 
shinyApp(ui = ui, server = server)
#> PhantomJS not found. You can install it with webshot::install_phantomjs(). If it is installed, please make sure the phantomjs executable can be found via the PATH variable.

Когда выбрана радиокнопка «от A до B» текст над verbatumTextOutput должен иметь значение «Значение B», а при выборе «B to A» - «Значение A».

Спасибо!