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

server.R

@@ -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]] ]

ui.R

@@ -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',