r - 如何一起使用 formatPercentage 和 renderDataTable

Question

我想在 renderDataTable 中使用 formatPercentage,rowname=FALSE。请参见下面的代码，方法 1 包含 formatPercentage，方法 2 包含 rowname=FALSE。我想将它们合并在一起，但不断出现错误(renderDataTable ignores ... expr 产生数据表对象时的参数；请参阅 ?renderDataTable)。我该怎么做呢？

方法 1 包含 formatPercentage 但不能传递 renderDataTable 选项:

# Method 1 format Percentage 
output$funddetails <- DT::renderDataTable(
      DT::datatable({
      heatmap_raw[heatmap_raw$Keeper%in%
                    input$selectkeeper&month(heatmap_raw$period)%in%
                    input$selectmonth,c("apid","Fund Name","Status","Comments","Last Update by Keeper","Most Recent Portfolio")]
      })%>%formatPercentage(1, 2)
)

方法 2 仅包含 renderDataTable 的选项，但我不能使用 formatPercentage:

#Method 2
data_fund <- reactive({
    heatmap_raw[heatmap_raw$Keeper%in%
        input$selectkeeper&month(heatmap_raw$period)%in%
        input$selectmonth,c("apid","Fund Name","Status","Comments","Last Update by Keeper","Most Recent Portfolio")]
})

output$funddetails <- DT::renderDataTable(
  data_fund(),
  rowname=FALSE,
  options = list(
    pageLength=10,
    #autoWidth = TRUE,
    lengthMenu = list(c(25, 50, -1), c('25', '50', 'All')),
    searchHighlight = TRUE,
    scrollX=TRUE
  )
)

Answer 1

我认为您使用方法 1 的问题是由于 datatable 命令的大括号的位置造成的。你实际上不需要它们。这是一个适合您的示例:

library(shiny)

shinyApp(

  ui = fluidPage(
    DT::dataTableOutput('tbl')
  ),

  server = function(input, output) {
    output$tbl = DT::renderDataTable(
      datatable(iris, 
                rowname=FALSE,
                options = list(
                  pageLength=10,
                  #autoWidth = TRUE,
                  lengthMenu = list(c(25, 50, -1), c('25', '50', 'All')),
                  searchHighlight = TRUE,
                  scrollX=TRUE)
      ) %>% formatPercentage(1, 2)
    )
  }
)