Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
pertz-lab
shiny-timecourse-inspector
Commits
0d6e33c7
Commit
0d6e33c7
authored
Jul 28, 2017
by
dmattek
Browse files
Reducing debug output
parent
576e0c81
Changes
2
Hide whitespace changes
Inline
Side-by-side
modules/auxfunc.R
View file @
0d6e33c7
...
...
@@ -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)),
TrackLabel
=
rep
(
1
:
(
locNtracks
*
locNsites
),
each
=
locNtp
))
cat
(
colnames
(
dt.nuc
))
return
(
dt.nuc
)
}
...
...
server.R
View file @
0d6e33c7
...
...
@@ -80,7 +80,6 @@ shinyServer(function(input, output, session) {
locCols
=
getDataNucCols
()
locColSel
=
locCols
[
locCols
%like%
'rack'
][
1
]
# index 1 at the end in case more matches; select 1st
cat
(
locColSel
,
'\n'
)
selectInput
(
'inSelTrackLabel'
,
'Select Track Label (e.g. objNuc_Track_ObjectsLabel):'
,
...
...
@@ -140,7 +139,6 @@ shinyServer(function(input, output, session) {
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):'
,
...
...
@@ -161,7 +159,7 @@ shinyServer(function(input, output, session) {
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:'
,
...
...
@@ -180,7 +178,7 @@ shinyServer(function(input, output, session) {
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'
,
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment