在 DT table 中将行拆分为 2

Question

从下面的数据集中，我们可以将 Cola 中的行拆分为预期输出中所示的 2 行吗？同一行却分成两行？

library(shiny)
library(DT)
 
ui <- fluidPage(
  DTOutput("example_table")
)
 
server <- function(input, output, session) {
 
  new_data <- data.frame(cola = c("fsdfdsgfsdgfdgfdgfdgdhgdgdfgdfgsfsgsfgsfdgfdgdfgfdgsfgfgfdgdd","fsgfdgfdgdfsdfgdfgdhdfgsdfsdfgfgdhdhfghfghfghsdfs"), b=c(1,2))
 
  output$example_table <- DT::renderDT({
    datatable(new_data,escape = FALSE)
  })
}
 
shinyApp(ui, server)

预期输出

Answer 1

您只需在需要换行的地方插入 <br>。

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("example_table")
)

server <- function(input, output, session) {
  
  new_data <- data.frame(cola = c("fsdfdsgfsdgfdgfdgfdgdhgdgd<br>fgdfgsfsgsfgsfdgfdgdfgfdgsfgfgfdgdd","fsgfdgfdgdfsdfgdfgdhdfgsdf<br>sdfgfgdhdhfghfghfghsdfs"), b=c(1,2))
  
  output$example_table <- DT::renderDT({
    datatable(new_data,escape = FALSE)
  })
}

shinyApp(ui, server)

在 DT table 中将行拆分为 2

Split the line into 2 in DT table

r

shiny

dt