rshiny에서 rhandsontable을 사용하여 테이블을 다운로드하는 방법은 무엇입니까?

Question

다음 내용을 표시하기 위해 서버 코드를 작성했습니다. 나는 테이블

#server 
value <- eventReactive(input$file, { 
    theFile <- input$file 
    if(is.null(theFile)) { 
    return(NULL)} 
file.rename(theFile$datapath,paste(theFile$datapath, ".xlsx", sep="")) 
Data <- read_excel(paste(theFile$datapath, ".xlsx", sep = ""), 1) 
Data 
}) 

output$contents <- renderRHandsontable({ 
    rhandsontable(value()) 
}) 

Answer 1

손 - 더를 편집 한 후 파일을 다운로드하는 방법은 ui.R에 actionButton을 추가하고 파일을 저장하는 데 사용할 수 있습니다. ui.R에서

actionButton :

actionButton("savefile", "Save", width = '100%') 

이 server.R에 파일을 저장하려면 : 당신이 당신의 파일을 저장하지 않도록 나는 _input의 $의 차례 _를 격리 한

observeEvent(input$savefile, 
       { 

        if (!is.null(isolate(input$contents))) 
        { 
         #Convert to R object 
         x <- hot_to_r(isolate(input$contents)) 
         write.table(x, file = 'employee_input.txt', row.names=FALSE, quote = TRUE, sep = ",", 
         na = "NA", dec = ".") 
        } 
       } 
      )