require(shiny)runApp(list(ui = pageWithSidebar(headerPanel('Dynamic Help Text'),sidebarPanel(selectInput("mypanel", 'Choose Panel', c('A', 'B')),uiOutput('helptext')),mainPanel()),server = function(input, output){output$helptext <- renderUI({switch(input$mypanel,A = helpText('This is help text A'),B = helpText('This is help text B'))})}))