inst/shiny-dir/server-reactiveDF.R

In Manuelaio/uncoverappLib: Interactive graphical application for clinical assessment of sequence coverage at the base-pair level

###make reactive database given reference genome
txdb= reactive({if (input$UCSC_Genome == "hg19"){
  txdb <- TxDb.Hsapiens.UCSC.hg19.knownGene}
  else{
    txdb <- TxDb.Hsapiens.UCSC.hg38.knownGene}
})

#################make reactive dataframe given input file

mydata <- reactiveVal()
observeEvent(input$file1, {

  tmp <- read.table(input$file1$datapath,
                    header = input$header, stringsAsFactors = FALSE)
  colnames(tmp)[1:3]=c("chromosome","start","end")
  #n=  length(colnames(tmp)[-1:-3])
  #m<-rep(name_sample(), each=2)
  #colnames(tmp)[-1:-3]=paste0(c("sample_","nucleotide_"), m[1:n])
  head(tmp)
  ## do whatever is needed to parse the data
  mydata(tmp)
})

observeEvent(input$pileup, {

  tmp_pileup <- pileup_input()
  colnames(tmp_pileup)[1:3]=c("chromosome","start","end")
  n=  length(colnames(tmp_pileup)[-1:-3])
  #a=rep(head(seq_along(tmp_pileup),-3), each=2)
  m<-rep(name_sample(), each=2)
  #colnames(tmp_pileup)[-1:-3]=paste0(c("sample_","nucleotide_"), a[1:n])
  colnames(tmp_pileup)[-1:-3]<-paste0(c("sample_","nucleotide_"), m[1:n])
  ## do whatever is needed to parse the data
  mydata(tmp_pileup)
  print(head(tmp_pileup))
})



mysample<-reactive({
  if (is.null(mydata()))
    return(NULL)
  num= input$Sample
  #num<- name_sample()
  i=paste0("sample_",num)
  nucleodites= paste0("nucleotide_",num)
  mydata() %>%
    dplyr:: select(chromosome, start, end,i,nucleodites) %>%
    dplyr::rename(coverage=i) %>%
    dplyr::rename(counts= nucleodites)
})


filtered_low<- reactive ({
  if (is.null(mysample()))
    return(NULL)
  mysample() %>%
    dplyr::select(-c(counts)) %>%
    dplyr::filter(chromosome == Chromosome(),
                  coverage <= as.numeric(input$coverage_co))

})

filtered_high<- reactive ({
  if (is.null(mysample()))
    return(NULL)
  mysample() %>%
    dplyr::select(-c(counts)) %>%
    dplyr::filter(chromosome == Chromosome(),
                  coverage > as.numeric(input$coverage_co))
})