gpt4 book ai didi

DT 数据表标题超链接

转载 作者:行者123 更新时间:2023-12-02 04:13:02 24 4
gpt4 key购买 nike

是否可以在 Rstudio DT 数据表中在标题参数中添加超链接?我已经尝试了很多次,但我似乎无法让任何事情发挥作用。我尝试了 w3schools fiddle 的 html 标题,我可以获得一个在表标题中工作的超链接,但我不知道如何将其转换为 DT 数据表。我尝试通过 htmltools::调用它,但我只能让它呈现为文本,例如:

datatable(tble
,caption =
htmltools::tags$caption(
style = 'caption-side: top; text-align: left; color:blue; font-size: 12px;',
,htmltools::p('<!DOCTYPE html>
<html><body><a href="http://rstudio.com">RStudio</a></body>
</html>'))
,escape = FALSE

)

最佳答案

我知道这有点老了,但由于我今天遇到了类似的问题并找到了答案,所以我想我会分享。我这样做的方法是使用 Shiny 的 HTML 函数正确编码 html,这将处理必要的转义。可以在此处查看示例:

DT::datatable(
get(input$dataInput),
caption = htmltools::tags$caption(
style = 'caption-side: top; text-align: Left;',
htmltools::withTags(
div(HTML('Here is a link to <a href="http://rstudio.com">RStudio</a>'))
)
)
)

简单的 Shiny 应用程序中的完整示例:

library(shiny)
library(DT)

data("mtcars")
data("iris")

ui <- fluidPage(
titlePanel("Example Datatable with Link in Caption"),
selectInput('dataInput', 'Select a Dataset',
c('mtcars', 'iris')),
DT::dataTableOutput('example1')
)

server <- function(input, output, session){
output$example1 <- DT::renderDataTable({
# Output datatable
DT::datatable(
get(input$dataInput),
caption = htmltools::tags$caption(
style = 'caption-side: top; text-align: Left;',
htmltools::withTags(
div(HTML('Here is a link to <a href="http://rstudio.com">RStudio</a>'))
)
)
)
})
}

shinyApp(ui = ui, server = server)

关于DT 数据表标题超链接,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/35425121/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com