如何为使用renderReactable创建的表赋予标题

问题描述

当我在R中执行以下代码时，效果很好。

example<- reactable(data.frame(country=c("argentina","brazil"),value=c(1,2)
))
withtitle <- htmlwidgets::prependContent(example,h2(class = "title","Top CRAN Packages of 2019"))
print(withtitle)

但是，当我使用闪亮的代码执行相同的代码

reactableOutput("table_1")  and

output$table_1 <- renderReactable({

example<- reactable(data.frame(country=c("argentina","Top CRAN Packages of 2019"))

print(withtitle)

})

出现错误：

Warning in renderWidget(instance) :
  Ignoring prepended content; prependContent can't be used in a Shiny render call

请指导我为上表提供标题，并为标题提供其他参数，例如背景色，字体颜色等。

解决方法

您可以仅在ui部分中定义标题。也许您正在寻找这个

library(reactable)

ui <- fluidPage(
  h2("Top CRAN Packages of 2019"),reactableOutput("table_1")
)
 
server <- function(input,output) {
  output$table_1 <- renderReactable({
    
    example<- reactable(data.frame(country=c("argentina","brazil"),value=c(1,2)))

  })
}

shinyApp(ui = ui,server = server)

请注意，您的代码给了我同样的错误，但我确实在RStudio的查看器窗格中获得了正确的输出。

感谢YBS。你的回答让我明白了。我在reactableOutput（）之前在ui中使用了div（）文本，并且可以获得带有选择颜色和背景的标题。使用的代码如下：

            div("Top CRAN Packages of 2019",style = "text-align: center; 
                  background-color: #3380FF; color:yellow; font-size:200%"),reactableOutput("table_1")

再次感谢。

reactable shiny