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)){ if(is.null(example)){
cExample<-paste0(system.file("examples","",package = "RBBGCMuso"),"/",chooseExample()) cExample<-paste0(system.file("examples","",package = "RBBGCMuso"),"/",chooseExample())
} else {
cExample <- paste0(system.file("examples","",package = "RBBGCMuso"),"/","hhs")
} }
if(is.null(destination)){ if(is.null(destination)){
@ -50,5 +52,5 @@ copyMusoExampleTo <- function(example = NULL, destination = NULL){
} else { } else {
file.copy(grep("^muso$", list.files(), value = TRUE, invert = TRUE),destination) 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")) warning(paste0("The plotType ", plotType," is not implemented, plotType is set to cts"))
plotType <- "cts" plotType <- "cts"
} }
# browser()
if(is.null(settings)){ if(is.null(settings)){
settings <- setupMuso() settings <- setupMuso()
} }
@ -120,6 +120,7 @@ plotMuso <- function(settings = NULL, variable = 1,
numVari <- ncol(musoData)-5 numVari <- ncol(musoData)-5
pointOrLineOrPlot <- function(musoData, variableName, plotType="cts", expandPlot=FALSE, plotName=NULL){ pointOrLineOrPlot <- function(musoData, variableName, plotType="cts", expandPlot=FALSE, plotName=NULL){
# browser()
if(!expandPlot){ if(!expandPlot){
if(plotType=="cts"){ if(plotType=="cts"){
if(length(variableName)==1){ if(length(variableName)==1){