hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixing normal example file

Browse Source
This commit is contained in:
Roland Hollós 2019-12-02 14:49:22 +01:00
parent 89d362f27d
commit a93c3b7784
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
RBBGCMuso/R/musoExample.R
View File

@ -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)
}

3
RBBGCMuso/R/plotMuso.R
View File

@ -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){