fix shiny bug (baa56424) · Commits · github_fork / ZUMIs

zUMIs-config_shiny.R

+16 −7

Original line number	Diff line number	Diff line
		@@ -291,6 +291,13 @@ server <- function(input, output, session) {
		names(bc_struc)<-c("cDNA","BC","UMI")
		bc_struc<-bc_struc[which( bc_struc != "" )]


		if(input$patternsearch==F){
		seqf[[i]] <- list(
		"name" = input[[paste0("fqpath_",i)]],
		"base_definition" = paste0(names(bc_struc),"(",bc_struc,")")
		)
		}else{
		if(input$patternsearch==T & substr(input$patternRead,6,6)==i){
		seqf[[i]] <- list(
		"name" = input[[paste0("fqpath_",i)]],
		@@ -303,6 +310,8 @@ server <- function(input, output, session) {
		"base_definition" = paste0(names(bc_struc),"(",bc_struc,")")
		)
		}
		}


		}
		names(seqf) <- paste0("file",1:input$nfiles)