Write.csv 작업 버튼을 사용하여

Question

기본적으로 작은 종류의 설정을 시도하고 특정 분석이 완료되면 생성 된 특정 데이터 세트를 미리 정의 된 위치와 미리 정의 된 이름으로 내보내려고합니다 (이전에 선택된 입력). 이를 위해,이 수행 클릭 동작 버튼을 사용

observeEvent(input$export_button, { 
     write.csv(input_dummy_data4ads,paste0("Dummy Files/",unique(input_dummy_data4ads$Dependent_Variable),"_", unique(input_dummy_data4ads$Model_Type),"_", unique(input_dummy_data4ads$AGM),".csv"),row.names = F,na="") 
      }) 

여기서 문제는 내가 한 번 액션 버튼을 클릭하면 원하는 CSV 파일을 생성하고 원하는 위치에서 너무 것입니다. 하지만 일단 그것을 누르면, 1의 값 (input $ export_button)이 필요합니다. 그래서 라디오 버튼을 사용하여 새로운 입력을 선택하고 그것을 기반으로 새로운 플롯을 생성하면 (다른 액션 버튼을 클릭하여) 새 위치를 기반으로 새 이름을 가진 새 CSV 파일을 원하는 위치에 만듭니다. 내가하려고하는 것은 새로운 csv 파일이 매번 클릭 할 때만 생성되도록 작업 버튼의 값을 재설정하는 것입니다.

나는 이것을 이해하려고 노력하지만 서버에 UI 및 downloadHandler에 downloadButton을, 그것은 https://github.com/rstudio/shiny/issues/167

Answer 1

이에 대한 반짝에 특정 기능이 있습니다 통합 사용할 수 있습니다.

server.R :

output$export_data <- downloadHandler(
    filename = function() { 
    paste0("Dummy Files/", unique(input_dummy_data4ads$Dependent_Variable), "_", unique(input_dummy_data4ads$Model_Type), "_", unique(input_dummy_data4ads$AGM), ".csv") 
    }, 
    content = function(con) { 
    write.csv(input_dummy_data4ads, con, row.names = F, na = "") 
    } 
) 

ui.R :

downloadButton("export_data", "Export")