Блестящая Скачать Excel файл

Question

У меня есть сервер shiny настроить на экземпляре Linux У меня есть папка под названием шаблоны, которые имеет шаблон файла первенствовать Пользователь переходит на веб-страницу и нажимает на кнопку загрузки и в теории они должны иметь возможность загружать шаблон везде, где захотите, на своей локальной машине.

Я видел код с поста Shiny download file not working

Когда я пытаюсь и запустить его я получить файл, сохраненный в my downloads на моем ноутбуке окна и называется NA не имя Template.xlsx

Мои два вопроса

• можно ли подсказать пользователю, куда сохранить файл локально
• можно ли сделать это по умолчанию к XLSX

Псевдокод является

ui <- shinyUI(fluidPage(

# Side Panel with Options 
    fluidRow(
    column(4, wellPanel(
    id = "leftPanel", 
    div(
    id = "Header", 
    h3("Options"), 
    tags$hr() 
), 
    div(
    h4("1. Download the empty excel template"), 
    downloadButton("downloadBtn", "Download Excel Template") 
    ) 
))))) 

Сервер

# Define server logic required 
server <- shinyServer(
    function(input, output) { 

output$downloadBtn <- downloadHandler(
    filename = function() { 
    paste(input$filenames, sep='') 
    }, 
    content = function(file) { 
    myfile <- srcpath <- '/home/foo/Save to Database/templates/Template.xlsm' 
    file.copy(myfile, file) 
    } 
)}) 

Answer 1

Вы используете paste(input$filenames, sep=''), но вы не имеете вход $ имена файлов, определенные в части пользовательского интерфейса. Он должен работать, если вы замените эту строку "Template.xlsm"