Commit 4cc5d937 authored by dmattek's avatar dmattek

Added: setting bounds for y-axis in single-trajectory plot

parent a8384aa9
......@@ -24,7 +24,8 @@ modTrajPlotUI = function(id, label = "Plot Individual Time Series") {
),
column(
3,
sliderInput(ns('sliPlotTrajSkip'), 'Plot every n-th point:', min = 1, max = 10, value = 1, step = 1)
sliderInput(ns('sliPlotTrajSkip'), 'Plot every n-th point:', min = 1, max = 10, value = 1, step = 1),
uiOutput(ns('uiSlYTrim'))
),
column(
3,
......@@ -79,6 +80,27 @@ modTrajPlot = function(input, output, session,
})
# UI for trimming y-axis
output$uiSlYTrim = renderUI({
cat(file = stderr(), 'UI uiSlYTrim\n')
loc.dt = in.data()
locYmin = signif(min(loc.dt$y), 4)
locYmax = signif(max(loc.dt$y), 4)
sliderInput(
ns('slYTrim'),
label = 'Trim y-axis',
min = locYmin,
max = locYmax,
value = c(locYmin, locYmax)
)
})
callModule(modTrackStats, 'dispTrackStats',
in.data = in.data)
......@@ -195,7 +217,8 @@ modTrajPlot = function(input, output, session,
aux.label1 = if (locPos) 'pos.x' else NULL,
aux.label2 = if (locPos) 'pos.y' else NULL,
aux.label3 = if (locObjNum) 'obj.num' else NULL,
stat.arg = input$chBPlotTrajStat
stat.arg = input$chBPlotTrajStat,
ylim.arg = input$slYTrim
)
return(p.out)
......
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