小编Aks*_*hit的帖子

以下是我编写的代码.我无法使用formattable我的光泽.formattable有助于格式化表格并改善可视化效果.

library("shinydashboard")
library("shiny")
library("formattable")

body <- dashboardBody(
  fluidRow(
    column(width = 12,
           box(tableOutput(formattable(test.table, list())))
           )
    )
  )

ui <- dashboardPage(
  dashboardHeader(title = "Column layout"),
  dashboardSidebar(),
  body
)

server <- function(input, output) {

  test.table <- data.frame(lapply(1:8, function(x) {1:10}))

    output$table <- renderTable({test.table})
}
shinyApp(ui = ui, server = server)

我在闪亮的仪表板中使用rpivoTable包.问题是我的表有近25个变量(列),而我只能查看10列.休息是不可见的,也没有滑块也可以查看它们.

最好,

如何通过提取剩下的所有字符来获取以下日期的月份/.

一些示例数据:

10/1/2015 10:30:00
10/15/2015 13:32:00
2/12/2012