Commit 0d6e33c7 authored by dmattek's avatar dmattek
Browse files

Reducing debug output

parent 576e0c81
...@@ -206,7 +206,6 @@ userDataGen <- function() { ...@@ -206,7 +206,6 @@ userDataGen <- function() {
# objNuc_Intensity_MeanIntensity_imErkCor = c(rnorm(locNtp * locNtracks * locNsites * 0.5, .25, 0.1), rnorm(locNtp * locNtracks * locNsites * 0.5, .5, 0.2)), # objNuc_Intensity_MeanIntensity_imErkCor = c(rnorm(locNtp * locNtracks * locNsites * 0.5, .25, 0.1), rnorm(locNtp * locNtracks * locNsites * 0.5, .5, 0.2)),
TrackLabel = rep(1:(locNtracks*locNsites), each = locNtp)) TrackLabel = rep(1:(locNtracks*locNsites), each = locNtp))
cat(colnames(dt.nuc))
return(dt.nuc) return(dt.nuc)
} }
......
...@@ -80,7 +80,6 @@ shinyServer(function(input, output, session) { ...@@ -80,7 +80,6 @@ shinyServer(function(input, output, session) {
locCols = getDataNucCols() locCols = getDataNucCols()
locColSel = locCols[locCols %like% 'rack'][1] # index 1 at the end in case more matches; select 1st locColSel = locCols[locCols %like% 'rack'][1] # index 1 at the end in case more matches; select 1st
cat(locColSel, '\n')
selectInput( selectInput(
'inSelTrackLabel', 'inSelTrackLabel',
'Select Track Label (e.g. objNuc_Track_ObjectsLabel):', 'Select Track Label (e.g. objNuc_Track_ObjectsLabel):',
...@@ -140,7 +139,6 @@ shinyServer(function(input, output, session) { ...@@ -140,7 +139,6 @@ shinyServer(function(input, output, session) {
locCols = getDataNucCols() locCols = getDataNucCols()
locColSel = locCols[locCols %like% 'ite'][1] # index 1 at the end in case more matches; select 1st locColSel = locCols[locCols %like% 'ite'][1] # index 1 at the end in case more matches; select 1st
cat(locColSel, '\n')
selectInput( selectInput(
'inSelSite', 'inSelSite',
'Select FOV (e.g. Metadata_Site or Metadata_Series):', 'Select FOV (e.g. Metadata_Site or Metadata_Series):',
...@@ -161,7 +159,7 @@ shinyServer(function(input, output, session) { ...@@ -161,7 +159,7 @@ shinyServer(function(input, output, session) {
if (!is.null(locCols)) { if (!is.null(locCols)) {
locColSel = locCols[locCols %like% 'objCyto_Intensity_MeanIntensity_imErkCor.*' | locColSel = locCols[locCols %like% 'objCyto_Intensity_MeanIntensity_imErkCor.*' |
locCols %like% 'Ratio'][1] # index 1 at the end in case more matches; select 1st locCols %like% 'Ratio'][1] # index 1 at the end in case more matches; select 1st
# cat(locColSel, '\n')
selectInput( selectInput(
'inSelMeas1', 'inSelMeas1',
'Select 1st measurement:', 'Select 1st measurement:',
...@@ -180,7 +178,7 @@ shinyServer(function(input, output, session) { ...@@ -180,7 +178,7 @@ shinyServer(function(input, output, session) {
if (!is.null(locCols) && if (!is.null(locCols) &&
!(input$inSelMath %in% c('', '1 / '))) { !(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 locColSel = locCols[locCols %like% 'objNuc_Intensity_MeanIntensity_imErkCor.*'][1] # index 1 at the end in case more matches; select 1st
# cat(locColSel, '\n')
selectInput( selectInput(
'inSelMeas2', 'inSelMeas2',
'Select 2nd measurement', 'Select 2nd measurement',
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment