从R中的DataTable按钮扩展动态命名下载文件名
我有:从R中的DataTable按钮扩展动态命名下载文件名,r,shiny,dt,R,Shiny,Dt,我有: 图书馆(闪亮) 图书馆(DT) ui其工作原理如下: library(shiny) library(DT) ui <- fluidPage( h2("Explorer"), tabPanel(h3("Inspector"), p("Overview of data for a particular sample."), selectInput(inputId = "sample",
图书馆(闪亮)
图书馆(DT)
ui其工作原理如下:
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 = "-"))))
)
}
server您在server
部分的开头写了sample\u overview
(两个m),这是自愿性的还是错误的?谢谢@bretauv-这确实是代码示例子集中的一个输入错误。(这与问题无关)。修正了两个问题:您能提供一个vcf文件的示例吗?什么是示例_概览函数?
server <- function(input, output) {
output$sample_inspector <- DT::renderDataTable(
iris,
rownames = FALSE,
extensions = 'Buttons',
options = exprToFunction(
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 = "-"))))
)
)
}