Mod:

- recognize "*.os.x" and "*.os.y" as valid column names with X and Y positions
- increase fixed plot with of clustered time series

server.R

@@ -499,8 +499,8 @@ shinyServer(function(input, output, session) {
     
     
     # Find column names with position
-    loc.s.pos.x = names(loc.dt)[names(loc.dt) %like% 'Location.*X']
-    loc.s.pos.y = names(loc.dt)[names(loc.dt) %like% 'Location.*Y']
+    loc.s.pos.x = names(loc.dt)[names(loc.dt) %like% c('.*ocation.*X') | names(loc.dt) %like% c('.*os.x')]
+    loc.s.pos.y = names(loc.dt)[names(loc.dt) %like% c('.*ocation.*Y') | names(loc.dt) %like% c('.*os.y')]
     
     if (length(loc.s.pos.x) == 1 & length(loc.s.pos.y) == 1)
       locPos = TRUE

ui.R

@@ -271,13 +271,13 @@ shinyUI(fluidPage(
           # tabPanel('Heat-map int.',
           #          helpText("Choose your settings 2")),
           tabPanel('Time-courses',
-                   downPlotUI('downPlotHierTraj', "Download PDF"),
                    actionButton('butPlotHierTraj', 'Plot!'),
-                   plotOutput('outPlotHierTraj')),
+                   plotOutput('outPlotHierTraj' , height = '800px', width = 'auto'),
+                   downPlotUI('downPlotHierTraj', "Download PDF")),
           tabPanel('Cluster dist.',
-                   downPlotUI('downPlotHierClDist', "Download PDF"),
                    actionButton('butPlotHierClDist', 'Plot!'),
-                   plotOutput('outPlotHierClDist'))
+                   plotOutput('outPlotHierClDist', height = '800px', width = 'auto'),
+                   downPlotUI('downPlotHierClDist', "Download PDF"))
         )
       ),
       
@@ -451,13 +451,13 @@ shinyUI(fluidPage(
           # tabPanel('Heat-map int.',
           #          helpText("Choose your settings 2")),
           tabPanel('Time-courses',
-                   downPlotUI('downPlotHierSparTraj', "Download PDF"),
                    actionButton('butPlotHierSparTraj', 'Plot!'),
-                   plotOutput('outPlotHierSparTraj')),
+                   plotOutput('outPlotHierSparTraj', height = '800px', width = 'auto'),
+                   downPlotUI('downPlotHierSparTraj', "Download PDF")),
           tabPanel('Cluster dist.',
-                   downPlotUI('downPlotHierSparClDist', "Download PDF"),
                    actionButton('butPlotHierSparClDist', 'Plot!'),
-                   plotOutput('outPlotHierSparClDist'))
+                   plotOutput('outPlotHierSparClDist', height = '800px', width = 'auto'),
+                   downPlotUI('downPlotHierSparClDist', "Download PDF"))
         )
       )
       #