小编Sid*_*lia的帖子

我想在Shiny的侧边栏面板之外显示静态文本。我能够在侧边栏面板中显示文本。但是，如果我尝试在侧边栏面板之外显示文本，则会出现以下错误：“ match.arg中的错误：'arg'必须为NULL或字符向量”。

下面的示例代码在侧边栏面板中显示句子“ This is a static text”。我想在侧边栏面板“正下方”显示文本，但不在面板窗口内部显示。

下面的代码给了我这个输出：

但我希望它看起来像这样：

我该如何实现？

library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(

   # Application title
   titlePanel("Old Faithful Geyser Data"),

   # Sidebar with a slider input for number of bins 
   sidebarLayout(
      sidebarPanel(
         sliderInput("bins",
                     "Number of bins:",
                     min = 1,
                     max = 50,
                     value = 30),
         h5("This is a static text")
      ),

      # Show a plot of the generated distribution
      mainPanel(
         plotOutput("distPlot")
      )
   )
)

# Define server logic required …

有没有办法在将鼠标悬停在数据表显示中的行（记录）上时显示鼠标悬停文本？在 StackOverflow 上解决了一些类似的问题后，我发现了 2 个示例代码，一个显示列单元格的悬停文本，另一个在鼠标悬停时突出显示整行。

显示列单元格悬停文本的示例代码：

library(shiny)
library(DT)

shinyApp(
  ui = fluidPage(

    DT::dataTableOutput("table2")

  ),
  server = function(input, output) {

    output$table2<-DT::renderDataTable({
      responseDataFilter2_home<-iris[,c(4,3,1)]
      displayableData<-DT::datatable(responseDataFilter2_home,options = list(rowCallback = JS(
        "function(nRow, aData, iDisplayIndex, iDisplayIndexFull) {",
        "var full_text = aData[1] + ','+ aData[2]",
        "$('td:eq(1)', nRow).attr('title', full_text);",
        "}")
      ))#, stringAsFactors = FALSe, row.names = NULL)
    },server = TRUE, selection = 'single', escape=FALSE,options=list(paging=FALSE,searching = FALSE,ordering=FALSE,scrollY = 400,scrollCollapse=TRUE,
                          columnDefs = list(list(width = '800%', targets = c(1)))),rownames=FALSE,colnames="Name")

    }
 )

我还发现了另一个代码，可以在悬停时突出显示整行：

鼠标悬停时突出显示行的示例代码

#rm(list = ls())
library(shiny)
library(DT)

ui <- basicPage( …