我正在使用Rshiny应用程序中的DataTable来显示数据帧的内容。但是,数据帧的一个元素是文本,可能有超过1000个字符。当我显示datatable时,它会显示所有文本。我想将其截断为前250个字符,并在悬停时显示完整文本。我该怎么做?
ui.r
shinyUI(fluidPage(
theme = shinythemes::shinytheme("flatly"),
titlePanel("title"),
sidebarLayout(
sidebarPanel(
width=0
),
mainPanel(
width=12,
tabsetPanel(tabPanel("Data",DT::dataTableOutput("train_data",width = "100%")))
)
)
))
server.r
output$train_data <- renderDataTable({
if(is.null(camry_data$train_data)){return ()}
DT::datatable(camry_data$train_data, options = list(lengthMenu = c(5,10)),class = "display")
})