Skip to content

Commit

Permalink
0.3.0 fix #5 #28 #49 #50 #51 #52 #53 #55 and more
Browse files Browse the repository at this point in the history
  • Loading branch information
ibarraespinosa committed Feb 5, 2018
1 parent aa0ccfe commit 50828c9
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions R/inventory.R
Expand Up @@ -122,7 +122,7 @@ inventory <- function(name,
dir.create(path = paste0(name, "/emi/BUS_", i))
dir.create(path = paste0(name, "/est/BUS_", i))
}}
} else { NULL }
}

if(vehcomp["MC"] > 0){
for(i in 1:vehcomp[5]){
Expand All @@ -133,7 +133,7 @@ inventory <- function(name,
dir.create(path = paste0(name, "/emi/MC_", i))
dir.create(path = paste0(name, "/est/MC_", i))
}}
} else { NULL }
}
}
if(clear == FALSE){
dovein()
Expand Down Expand Up @@ -223,10 +223,10 @@ inventory <- function(name,
dirs <- list.dirs(path = name, full.names = T, recursive = T)
cat("Directories:\n")
print(dirs)
} else {NULL}
}
if(show.scripts){
sc <- list.files(path = name, pattern = ".R", recursive = T)
cat("Scripts:\n")
print(sc)
} else {NULL}
}
}

0 comments on commit 50828c9

Please sign in to comment.