R/page_metadata.R

In m-swirski/RiboCrypt: Interactive visualization in genomics

metadata_ui <- function(id, all_exp, label = "metadata") {
  ns <- NS(id)
  genomes <- unique(all_exp$organism)
  experiments <- all_exp$name
  all_merged <- all_exp[grep("all_merged", name),][libtypes == "RFP",][grep("Escherichia_coli", name, invert = TRUE),]
  navbarMenu(
    title = "metadata", icon = icon("layer-group"),
    sra_search_ui("sra_search"),
    study_info_ui("study_info"),
    predicted_translons_ui("predicted_translons", all_merged)
  )
}

metadata_server <- function(id, all_experiments) {
  sra_search_server("sra_search")
  study_info_server("study_info", all_experiments)
  predicted_translons_server("predicted_translons")
}