R Shiny Datatable列用行拆分 [英] R shiny Datatable column split with line

问题描述

我在闪亮的服务器中生成一个数据表，例如：

  x = renderTable（rownames = FALSE，{...} 
  

有一个Ui，如：

  tableOutput（ x）
  

现在我想每秒
例如：

  ab | cd | e ... 
 1 2 | 2 3 | 4 ... 
 4 3 | 1 2 | 3 ... 
 3 1 | 5 5 | 5 ... 
  

我希望有人能帮助我。谢谢

解决方案

我使用了 mtcars 数据集的一个子集来生成此输出。下面是一个自给自足的可复制示例，一个人必须使用CSS样式来实现此效果。 。

I generate a Datatable in my shiny server like:

x=renderTable(rownames = FALSE,{...}

And have a Ui like:

 tableOutput("x")

Now I want that every second column a split is marked as line. For example:

a   b | c   d | e  ...
1   2 | 2   3 | 4  ...
4   3 | 1   2 | 3  ...
3   1 | 5   5 | 5  ...

I hope someone can help me. Thanks

解决方案

I've used a subset of mtcars dataset to generate this output. Below is a self-sufficient reproducible example for the same. One has to use CSS Styling to achieve this effect. Additional Information for advanced Styling is available here

library(DT)
library(shiny)
library(datasets)


ui <- fluidPage(

  dataTableOutput("table")

)

server <- function(input, output, session) {

  mtcars <- mtcars %>% select(1:8)
  row.names(mtcars) <- NULL

  output$table <- renderDataTable({

    # Initiate Empty Vector for Alternative border formating
    alt_vector <- vector(mode = "numeric")

    # Iterate over the no. of columns in the table to generate the vector
    for (i in 1:ncol(mtcars)) { 
      if(i %% 2 == 0) 
        alt_vector <- c(alt_vector,i)
    }

      df <- datatable(mtcars,rownames = FALSE, options = list(pageLength = 25)) %>%
            # First Column Border Left
            formatStyle(c(1),`border-left` = '1px solid black') %>% 
            # Rest Alternative Bordering
            formatStyle(alt_vector,`border-right` = '1px solid black')

  })

}

shinyApp(ui, server)

Attached is a snap-shot of the formatted table from the UI.

这篇关于R Shiny Datatable列用行拆分的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！