Shiny 使用selectInput设置框标题?
我想使用selectInput设置框的标题。例如,我希望默认标题为:Name 2 settings 现在,我可以将标题设置为Shiny 使用selectInput设置框标题?,shiny,shinydashboard,Shiny,Shinydashboard,我想使用selectInput设置框的标题。例如,我希望默认标题为:Name 2 settings 现在,我可以将标题设置为[1]“Name 2 settings”。有没有办法删除[1]和引号 谢谢 这是我的示例应用程序: ## app.R ## library(shiny) library(shinydashboard) ui <- dashboardPage(dashboardHeader(), dashboardSidebar(),
[1]“Name 2 settings”
。有没有办法删除[1]
和引号
谢谢
这是我的示例应用程序:
## app.R ##
library(shiny)
library(shinydashboard)
ui <- dashboardPage(dashboardHeader(),
dashboardSidebar(),
dashboardBody(fluidRow(
box(
title = "Settings", width = 6, solidHeader = TRUE, status = "primary",
flowLayout(selectInput(
"Design", "Design:",
c("Name 1" = "Name 1",
"Name 2" = "Name 2"),
selected = "Name 2"
))
),
box(
title = textOutput("Design"), width = 4, solidHeader = TRUE, status = "primary",
"Box content"
)
)))
server <- function(input, output) {
output$Design <- renderPrint({
paste(input$Design, 'settings')
})
}
shinyApp(ui, server)
##app.R##
图书馆(闪亮)
图书馆(shinydashboard)
ui只需将renderPrint
替换为renderText
:
server <- function(input, output) {
output$Design <- renderText({
paste(input$Design, 'settings')
})
}
服务器