R数据表列与行拆分

我在我的服务器中生成一个Datatable，如下所示：

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

并具有如下Ui：

 tableOutput("x")

现在，我希望每隔一列将拆分标记为行。 例如：

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

---

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

我使用了

mtcars

数据集的一个子集来生成此输出。下面是一个自给自足的可复制示例。人们必须使用CSS样式来实现这种效果。有关高级样式的其他信息可用

库（DT）
图书馆（闪亮）
图书馆（数据集）
ui您好，谢谢您的帮助，它工作正常。但我只想要一个包含所有数据的页面。如何调整？pageLength属性可用于实现相同的效果。在创建数据表时使用options=list（pageLength=nrow（mtcars））作为参数。那么，@Zorro是否希望输出与我在答案中发布的图像相同？每页10行？在25行的答案中包含pageLength参数，但可以根据需要进行更改。希望这有帮助。回答得好，有没有办法将分隔符扩展到标题中？
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)