RピカピカダウンロードfiltreredのDataTable（DT）

Question

私はダウンロードしてshinyアプリをやろうとしているfiltred Datatable：

• はdelete button

で行を削除することによってfiltred searsh

でろ過

（ダウンロード部分は意図したとおりに動作しています）

問題： DATATABLEからレア私はボタンで行を削除した場合、それは第一のフィルタ

私reproductible exempleをリセットします。編集作業溶液

library(shinydashboard) 
library(DT) 
library(shiny) 

ui <- dashboardPage(
    dashboardHeader(title = "Info boxes"), 
    dashboardSidebar(), 
    dashboardBody(
    fluidRow(DT::dataTableOutput('data')), 
    fluidRow(p(class = 'text-center', downloadButton('x3', 'Download Filtered Data'))) 
) 
) 

server <- function(input, output) { 
    df <- reactiveValues(data = data.frame(
     Value1 = 1:10, 
     Value2 = c("A", "B", "C", "D", "E"), 
     stringsAsFactors = FALSE, 
     row.names = 1:10 
    )) 

    output$data <- DT::renderDataTable(
    df$data, server = TRUE, filter = 'top', escape = FALSE, selection = 'none') 

    # download the filtered data 
    output$x3 = downloadHandler('emergence filtré.csv', content = function(file) { 
     s = input$data_rows_all 
     write.table(df$data[s,], file ,sep=";",row.names = F) 
    })  
} 
shinyApp(ui = ui, server = server) 

は、私はこれが原因で、検索フィルターだと思うあなた

Answer 1

ありがとうございましたクライアント側（Webブラウザ内）で行われ、実際には基礎となるデータフレームは変更されません。可能な代替方法は、テーブルにフィルタを追加して検索機能として使用し、サーバー側の処理を設定することです。しかし、これは1つのボックスでグローバル検索を行いません。

output$data <- DT::renderDataTable(
    df$data, server = TRUE, filter = 'top', escape = FALSE, selection = 'none' 
)