Changed:

- in scatter plot, lm instea of rlm
- in dotplot, no border around dots
- in ribbon plot, lagend placement

modules/auxfunc.R

@@ -357,8 +357,9 @@ myGgplotScat = function(dt.arg,
   if (is.null(band.arg))
     p.tmp = p.tmp +
       stat_smooth(
-        method = function(formula, data, weights = weight)
-          rlm(formula, data, weights = weight, method = 'MM'),
+        # method = function(formula, data, weights = weight)
+        #   rlm(formula, data, weights = weight, method = 'MM'),
+        method = "lm",
         fullrange = FALSE,
         level = 0.95,
         colour = 'blue'

modules/boxPlot.R

@@ -202,6 +202,7 @@ modBoxPlot = function(input, output, session,
     
     if('dot' %in% input$inPlotType)
       p.out = p.out + geom_dotplot(aes_string(fill = in.cols[['group']]), 
+                                   color = NA,
                                    binaxis = "y", 
                                    stackdir = "center", 
                                    position = loc.par.dodge, 

modules/trajRibbonPlot.R

@@ -9,6 +9,7 @@ modTrajRibbonPlotUI =  function(id, label = "Plot Individual Time Series") {
       column(
         3,
         checkboxInput(ns('chBplotTrajInt'), 'Interactive Plot?'),
+        radioButtons(ns('rBlegendPos'), 'Legend placement:', list('top' = 'top', 'right' = 'right')),
         actionButton(ns('butPlotTraj'), 'Plot!')
       ),
       column(
@@ -185,7 +186,7 @@ modTrajRibbonPlot = function(input, output, session,
                            col.arg = loc.facet.col,
                            group.arg = in.facet,
                            xlab.arg = 'Time (min)',
-                           ylab.arg = '')
+                           ylab.arg = '', legendpos.arg = input$rBlegendPos)
     
     return(p.out)
   }