Приведенный ниже код может дать вам то, что вам нужно.
library(shiny)
ui <- basicPage(
uiOutput("test"),
plotOutput("plot1")
)
server <- function(input, output) {
output$test <- renderUI({
selectInput("dummy", "Select one value", c(mtcars$qsec))
})
output$plot1 <- renderPlot({
plot(mtcars$wt, mtcars$mpg, main = paste0("this is main ",input$dummy,""))
})
}
shinyApp(ui, server)
Использование selectInput
предназначено для проверки ваших требований.Сделайте необходимые изменения для вашей актуальной проблемы.