我在 Shiny 应用程序中遇到了“selectInput”和“updateSelectInput”组合的问题（我是 Shiny 的新手，但似乎无法在任何地方找到该问题的答案）。我想用 html 标签格式化标签，如下面的基本示例所示（例如，分成两行，更改字体大小）。这对于“selectInput”来说效果很好，但是“updateSelectInput”无法消化相同的标签，并且它输出“[object Object]”。在我看来，它不能处理 html 标签。有什么解决办法吗？？？谢谢！

ui.R：

# Load libraries needed for app
library(shiny)
library(shinydashboard)

# Define the overall UI with a dashboard page template
shinyUI(
   dashboardPage(
      dashboardHeader(title = "dashboard header"),
      dashboardSidebar( 
         #Create first dropdown box
         selectInput("choice1", "First choice:",1:5,selected=NULL),

         #Create second dropdown box
         selectInput("choice2",  p("Then, make your ", tags$br(), tags$small("second choice")), c("a","b","c","d","e"))
      ),
      dashboardBody()
   ) 
)

服务器.R:

# Load libraries needed for app
library(shiny)
library(shinydashboard)

# Define server for the Shiny app
shinyServer(function(input, output,session) {
   # …

当用户将数据广告的行名称悬停/点击时,我不得不尝试包含类似工具提示或popover的附加信息,因此他们不必查找某些定义,我目前在不同的tabPanel.这是一个有效的例子:

server.R:

library(shiny)
library(DT)
library(shinyBS)

# Define server for the Shiny app
shinyServer(function(input, output,session) {

tdata <- as.data.frame(iris)

# Render table here 
output$mytable <- DT::renderDataTable(DT::datatable(

   tdata[1:5,],

   options = list(paging = FALSE, searching = FALSE, info = FALSE, sort = FALSE,
                 columnDefs=list(list(targets=1:4, class="dt-right")) ),

   rownames = paste("rowname",1:5),

   container = htmltools::withTags(table(
      class = 'display',
      thead(
         tr(lapply(rep(c('ratios','name1', 'name2', 'name3','name4','name5'), 1),th))
      )
   ))
))

}) # end of shinyServer function

ui.R:

library(shiny)
library(DT)
library(shinyBS)

shinyUI(
   mainPanel(
      DT::dataTableOutput("mytable")
   )   
)      

请注意,我已经看到了以下讨论主题,但没有成功: 用于表列的R闪亮鼠标悬停文本,以及在闪亮应用程序中将 …