In loosolab/i2dash.scrnaseq: Iterative and Interactive Dashboards for single-cell RNA-sequencing data

{{ title }}

{{ env_id }} <- readRDS(file.path(datadir, "{{ env_id }}.rds"))
is_shiny <- identical(knitr::opts_knit$get("rmarkdown.runtime"), "shiny")
library(magrittr)

#
# Handle event data from transmitter
#
output${{ env_id }} <- renderPrint({
  eventdata <- plotly::event_data({{ env_id }}$event, source = {{ env_id }}$transmitter)
  eventdata[, c("x", "y", "key")]
})
#
# Download data.frame
#
output$downloadData_{{ env_id }} <- downloadHandler(
  filename =  paste('data-', Sys.Date(), '.csv', sep=''),
  content = function(file) {
    df <- plotly::event_data({{ env_id }}$event, source = {{ env_id }}$transmitter)
    write.csv(df[, c("x", "y", "key")], file)
  }
)
#
# Layout of component
#
shiny::fillCol(flex = c(NA, 1),
      downloadButton('downloadData_{{ env_id }}', 'Download data'),
      verbatimTextOutput("{{ env_id }}")
)

loosolab/i2dash.scrnaseq documentation built on Jan. 1, 2021, 8:23 a.m.