Как использовать formatPercentage и renderDataTable вместе

Question

Я хотел бы использовать formatPercentage, rowname=FALSE в renderDataTable. См. Ниже код. Метод 1 содержит formatPercentage, а метод 2 содержит rowname=FALSE. Я хотел бы объединить их вместе, но продолжает получать ошибки (renderDataTable ignores ... arguments when expr yields a datatable object; see ?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 связан с положением фигурных скобок команды данных. Вы им действительно не нужны. Вот пример, который должен сработать для вас:

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) 
    ) 
    } 
)