Commit a168f75e authored by dmattek's avatar dmattek

Added: checkbox for NA interpolation. Time frequency input shows only when NA interpolation = T.

parent 7b7d8294
......@@ -144,6 +144,7 @@ shinyServer(function(input, output, session) {
output$varSelTimeFreq = renderUI({
cat(file = stderr(), 'UI varSelTimeFreq\n')
if (input$chBtrajInter) {
numericInput(
'inSelTimeFreq',
'Provide time frequency:',
......@@ -152,6 +153,7 @@ shinyServer(function(input, output, session) {
width = '100%',
value = 1
)
}
})
# This is main field to select plot facet grouping
......@@ -620,6 +622,7 @@ shinyServer(function(input, output, session) {
setkey(loc.out, group, id, realtime)
if (input$chBtrajInter) {
# here we fill missing data with NA's
loc.out = loc.out[setkey(loc.out[, .(seq(min(realtime), max(realtime), input$inSelTimeFreq)), by = .(group, id)], group, id, V1)]
......@@ -648,6 +651,8 @@ shinyServer(function(input, output, session) {
# Create a UI filed for selecting the column with mid.in data.
# What to do with that column during interpolation (see above)
}
## Trim x-axis (time)
if(input$chBtimeTrim) {
loc.out = loc.out[realtime >= input$slTimeTrim[[1]] & realtime <= input$slTimeTrim[[2]] ]
......
......@@ -42,6 +42,7 @@ shinyUI(fluidPage(
uiOutput('uiButLoadTrajRem'),
tags$hr(),
checkboxInput('chBtrajInter', 'Interpolate NAs?', value = T),
checkboxInput('chBtrackUni', 'Create unique TrackLabel', T),
helpPopup(
title = 'Create unique cell ID',
......
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