我是一名有用的助手,可以为您进行翻译。以下是您需要翻译的内容:
我想在闪亮的数据表中的每一行中添加一个下载链接。
目前我已经完成了:
server <- function(input, output) {
v<-eventReactive(input$button,{
temp<-data.frame(TBL.name=paste("Data ",1:10))
temp<-cbind(
temp,
#Dynamically create the download and action links
Attachments=sapply(seq(nrow(temp)),function(i){as.character(downloadLink(paste0("downloadData_",i),label = "Download Attachments"))})
)
})
# Table of selected dataset ----
output$table <- renderDataTable({
v()
}, escape = F)}
ui <- fluidPage(
sidebarPanel(
actionButton("button", "eventReactive")
),
mainPanel(
dataTableOutput("table")
)
)
我在每一行的表格中都有下载链接。现在我想为每一行添加一个不同的文件位置。例如,每个下载链接将导致下载不同的zip文件夹。我可以使用downloadHandler吗?