要按日期降序排列的rpivottable闪亮版，你可以使用rpivotTable包和shiny包来创建一个交互式的rpivotTable，并在shiny应用程序中进行排序。

以下是一个示例代码，演示了如何创建一个按日期降序排列的rpivotTable闪亮版：

library(shiny)
library(rpivotTable)

# 定义ui
ui <- fluidPage(
  titlePanel("按日期降序排列的rpivottable闪亮版"),
  
  sidebarLayout(
    sidebarPanel(
      # 添加筛选器和其他输入组件
    ),
    
    mainPanel(
      rpivotTableOutput("pivotTable")
    )
  )
)

# 定义server
server <- function(input, output) {
  # 在server中创建rpivotTable
  output$pivotTable <- renderRpivotTable({
    # 读取数据，可以从文件或数据库中读取
    data <- read.csv("data.csv")
    
    # 将日期列转换为日期格式
    data$Date <- as.Date(data$Date)
    
    # 按日期降序排列
    data <- data[order(data$Date, decreasing = TRUE), ]
    
    # 创建rpivotTable
    rpivotTable(data = data, rows = "Date", cols = c("Category", "Subcategory"), 
                aggregatorName = "Sum", vals = "Amount")
  })
}

# 运行shiny应用程序
shinyApp(ui = ui, server = server)

注意：这只是一个示例代码，你需要根据你自己的数据和需求进行适当的修改。在实际应用中，你可能需要添加更多的筛选器、输入组件和其他自定义功能。