'Select one or more facet groupings (e.g. Site, Well, Channel):',
locCols,
width='100%',
selected=locColSel,
multiple=TRUE
)
}
})
output$varSelSite=renderUI({
cat(file=stderr(),'UI varSelSite\n')
locCols=getDataNucCols()
locColSel=locCols[locCols%like%'ite'][1]# index 1 at the end in case more matches; select 1st
cat(locColSel,'\n')
selectInput(
'inSelSite',
'Select FOV (e.g. Metadata_Site or Metadata_Series):',
locCols,
width='100%',
selected=locColSel
)
})
output$varSelMeas1=renderUI({
cat(file=stderr(),'UI varSelMeas1\n')
locCols=getDataNucCols()
if(!is.null(locCols)){
locColSel=locCols[locCols%like%'objCyto_Intensity_MeanIntensity_imErkCor.*'|locCols%like%'Ratio'][1]# index 1 at the end in case more matches; select 1st
# cat(locColSel, '\n')
selectInput(
'inSelMeas1',
'Select 1st measurement:',
locCols,
width='100%',
selected=locColSel
)
}
})
output$varSelMeas2=renderUI({
cat(file=stderr(),'UI varSelMeas2\n')
locCols=getDataNucCols()
if(!is.null(locCols)&&
!(input$inSelMath%in%c('','1 / '))){
locColSel=locCols[locCols%like%'objNuc_Intensity_MeanIntensity_imErkCor.*'][1]# index 1 at the end in case more matches; select 1st
# cat(locColSel, '\n')
selectInput(
'inSelMeas2',
'Select 2nd measurement',
locCols,
width='100%',
selected=locColSel
)
}
})
####
## data processing
# generate random dataset 1
dataGen1<-eventReactive(input$inDataGen1,{
cat("dataGen1\n")
return(userDataGen())
})
dataInBoth<-reactive({
dataInBoth<-reactive({
# Without direct references to inDataGen1,2 and inFileLoad, inDataGen2
# Without direct references to inDataGen1,2 and inFileLoad, inDataGen2