我有:
library(shiny)
library(DT)
ui <- fluidPage(
h2("Explorer"),
tabPanel(h3("Inspector"),
p("Overview of data for a particular sample."),
selectInput(inputId = "sample",
label = h3("Select sample"),
selectize = TRUE,
choices = names(vcf_tibbles)),
dataTableOutput("sample_inspector")
)
)
server <- function(input, output) {
output$sample_inspector <- DT::renderDataTable(
sample_overview(sample_id = input$sample, vcf_tibbles = vcf_tibbles),
rownames = FALSE,
extensions = 'Buttons',
options = list(paging = FALSE,
dom = 'Bfrtip',
buttons = list( list(extend = 'csv', filename = paste("snp", input$sample, sep = "-")),
list(extend = 'excel', filename = paste("snp", input$sample, sep = "-"))))
)
}
一切都运行良好,我选择一个样本后表格相应地更新。如果我点击CSV或Excel,相应的数据会下载。然而,文件名总是错误的。
似乎数据表的内容正在更新,但按钮没有考虑到
input$sample
。有没有办法使按钮中的文件名参数也具有反应性?我尝试让名称成为函数调用结果,但也无法使其工作。
谢谢!
server
部分开头写了sammple_overview
(两个m),这是故意的还是错误? - bretauvvcf_tibbles
的示例吗?什么是sample_overview
函数? - bretauv