From a93c3b7784498232b8fb3dc7f89ad08f4c35e664 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roland=20Holl=C3=B3s?= <hollorol@gmail.com>
Date: Mon, 2 Dec 2019 14:49:22 +0100
Subject: [PATCH] fixing normal example file

---
 RBBGCMuso/R/musoExample.R | 4 +++-
 RBBGCMuso/R/plotMuso.R    | 3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/RBBGCMuso/R/musoExample.R b/RBBGCMuso/R/musoExample.R
index 6187c7b..b4d4cf5 100644
--- a/RBBGCMuso/R/musoExample.R
+++ b/RBBGCMuso/R/musoExample.R
@@ -37,6 +37,8 @@ copyMusoExampleTo <- function(example = NULL, destination = NULL){
   
   if(is.null(example)){
     cExample<-paste0(system.file("examples","",package = "RBBGCMuso"),"/",chooseExample())       
+  } else {
+    cExample <- paste0(system.file("examples","",package = "RBBGCMuso"),"/","hhs") 
   }
   
   if(is.null(destination)){
@@ -50,5 +52,5 @@ copyMusoExampleTo <- function(example = NULL, destination = NULL){
   } else {
       file.copy(grep("^muso$", list.files(), value = TRUE, invert = TRUE),destination)    
   }
-  setwd(currDir)
+  setwd(destination)
 }
diff --git a/RBBGCMuso/R/plotMuso.R b/RBBGCMuso/R/plotMuso.R
index 286cf53..1948b56 100644
--- a/RBBGCMuso/R/plotMuso.R
+++ b/RBBGCMuso/R/plotMuso.R
@@ -44,7 +44,7 @@ plotMuso <- function(settings = NULL, variable = 1,
         warning(paste0("The plotType ", plotType," is not implemented, plotType is set to cts"))
         plotType <- "cts"
     }
-    
+   # browser() 
     if(is.null(settings)){
         settings <- setupMuso()
     }
@@ -120,6 +120,7 @@ plotMuso <- function(settings = NULL, variable = 1,
      numVari <- ncol(musoData)-5
 
     pointOrLineOrPlot <- function(musoData, variableName, plotType="cts", expandPlot=FALSE, plotName=NULL){
+        # browser()
         if(!expandPlot){
             if(plotType=="cts"){
                 if(length(variableName)==1){