fix possible bug in loading barcode settings (564f89a8) · Commits · github_fork / ZUMIs

zUMIs-config_shiny.R

+51 −44

Original line number	Diff line number	Diff line
		@@ -180,6 +180,10 @@ server <- function(input, output, session) {
		textInput(inputId = "savePath",label = "Save YAML file in this path:",value = paste0(input$outDir,"/",input$runID,".yaml"))
		})

		output$layoutUI <- renderUI({
		selectInput(inputId = "layout", label="cDNA Read Layout", choices = c("SE","PE"),selected = "SE")
		})

		# output$basedefui <- renderUI({
		# strong(paste("found"))
		# lapply(1:input$nfiles, function(i){
		@@ -337,7 +341,7 @@ server <- function(input, output, session) {
		updateCheckboxInput(session = session, inputId = "doVelocity", value = ya$counting_opts$velocyto)
		updateCheckboxInput(session = session, inputId = "countPrimary", value = ya$counting_opts$primaryHit)
		updateCheckboxInput(session = session, inputId = "twoPass", value = ya$counting_opts$twoPass)
		if (is.null(ya$barcodes$barcode_num & ya$barcodes$barcode_file)) {
		if (is.null(ya$barcodes$barcode_num) & is.null(ya$barcodes$barcode_file)) {
		updateRadioButtons(session = session, inputId = "barcodeChoice", selected = "Automatic")
		}
		if (!is.null(ya$barcodes$barcode_file)){
		@@ -352,6 +356,9 @@ server <- function(input, output, session) {
		updateNumericInput(session = session, inputId = "HamBC", value = ya$barcodes$BarcodeBinning)
		updateNumericInput(session = session, inputId = "nReadsBC", value = ya$barcodes$nReadsperCell)

		if(!is.null(ya$read_layout)){
		updateSelectInput(session = session, inputId = "layout", selected = ya$read_layout)
		}

		}