6

selectInput を使用して、ボックスにタイトルを設定したいと考えています。たとえば、デフォルトのタイトルを次のようにしたい: Name 2 settings

今のところ、タイトルを にすることができます[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)
4

1 に答える 1

4

renderPrintに置き換えるだけrenderTextです：

server <- function(input, output) {
    output$Design <- renderText({
        paste(input$Design, 'settings')
    })
}
于 2015-07-06T16:27:14.510 に答える