"다운로드"버튼을 클릭하면 다운로드하지 않고 새 응용 프로그램 창이 열립니다. - Shiny

Question

"다운로드"버튼이 예상대로 작동하지 않습니다. 그것을 클릭 할 때마다 새로운 응용 프로그램 창이 열립니다. 이런 식으로 왜 작동하는지 궁금합니다. server.R에

다운로드 기능 : ui.R에

output$down_load <- downloadHandler(
    # specify the file name 
    filename = function() { 
      paste('cls_result_export', Sys.Data(),'.csv', sep='') 
     }, 
    # Write the plot back 
    content = function(file){ 
      write.csv(cls_output()$raw_data, file) 
     } 
) 

다운로드 기능 :

downloadButton(outputId = "down_load", label = "Download the CLS Raw Data") 

Answer 1

사용하여 시도 이와 같은 observe 절에 연결된 actionButton :

library(shiny) 

ui <- fluidPage( actionButton("dodo", "Download")) 

    server <- function(input, output) 
    { 
    observe({ 

     if (input$dodo>0){ 
      fname <- paste0('cls_result_export', Sys.Date(),'.csv') 
      write.csv(mtcars,fname) 
     } 
    }) 
} 
shinyApp(ui = ui, server = server) 

Answer 2

이 문제를 해결할 수있는 다른 방법은에이 줄을 포함하는 것입니다.스크립트 :

outputOptions(output, 'down_load', suspendWhenHidden=FALSE)