버튼 확장명의 파일 이름을 사용자 정의하십시오.

Question

이 모든 기본 질문에 대해 약간 어리석은 느낌이 들지만, 이것에 대해서는 아무 것도 찾을 수 없습니다. 내 테이블의 'Excel'버튼을 클릭하면 사용자가 파일의 이름을 지정할 수 있습니다. 다운로드 대화 상자가 열리거나 이름을 입력 할 수있는 다른 UI가 나타납니다. 그게 가능하니? 현재이 이름은 앱의 태그와 같습니다.

rm(list=ls()) 
library(shiny) 
library(datasets) 
library(DT) 
library(data.table) 
DT<-data.table(matrix(abs(rnorm(600*40,sd=100)),nrow=600)) 

server<-shinyServer(function(input, output) { 
    output$view <- DT::renderDataTable(
    DT[,.SD],extensions = c('FixedHeader','Buttons'), 
     options=list(pageLength=60,fixedHeader = TRUE,dom = 'Bfrtip',buttons = c('csv', 'excel' ))) 
}) 

ui<-shinyUI(fluidPage(
    titlePanel("Shiny MWE"), 
     DT::dataTableOutput("view") 
    )) 

runApp(list(ui=ui,server=server)) 

Answer 1

당신은 반응성 datatable을 만들 수 있습니다 다음 renderDataTable에 그것을 통과, 그러나 당신이 파일 이름을 변경할 때마다 다시 쓰게됩니다

rm(list=ls()) 
library(shiny) 
library(datasets) 
library(DT) 
library(data.table) 
DT<-data.table(matrix(abs(rnorm(600*40,sd=100)),nrow=600)) 

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

    dt <- reactive({ 
    DT::datatable(DT[,.SD],extensions = c('FixedHeader','Buttons'), 
    options=list(pageLength=60,fixedHeader = TRUE,dom = 'Bfrtip', 
       buttons = list("csv",list(extend='excel',filename=input$filename)))) 
    }) 

    output$view <- DT::renderDataTable(
    dt(),server=FALSE 
    ) 
}) 

ui<-shinyUI(fluidPage(
    titlePanel("Shiny MWE"), 
    textInput("filename","Enter file name"), 
    DT::dataTableOutput("view") 
)) 

runApp(list(ui=ui,server=server))