Commit 4158f303 authored by jlopez's avatar jlopez
Browse files

Fix quote

parent 5c2429b0
......@@ -117,9 +117,9 @@ createContentFile <- function() {
listRBIO <- paste0(listRBIO, "\n\tbiocLite(")
for (pkg in 1:sizeBIO){
if(pkg < sizeBIO) {
listRBIO <- paste0(listRBIO, '"',selectBIO[pkg],'", ')
listRBIO <- paste0(listRBIO, '\'',selectBIO[pkg],'\', ')
} else {
listRBIO <- paste0(listRBIO, '"',selectBIO[pkg],'")"')
listRBIO <- paste0(listRBIO, '\'',selectBIO[pkg],'\')"')
}
}
result <- paste(result, listRBIO, sep = "\n")
......@@ -143,9 +143,9 @@ createContentFile <- function() {
listRGITHUB <- '\tR --slave -e "install_github(c('
for (pkg in 1:sizeGITHUB){
if(pkg < sizeGITHUB) {
listRGITHUB <- paste0(listRGITHUB, '"',selectGITHUB[pkg],'", ')
listRGITHUB <- paste0(listRGITHUB, '\'',selectGITHUB[pkg],'\', ')
} else {
listRGITHUB <- paste0(listRGITHUB, '"',selectGITHUB[pkg],'"))"')
listRGITHUB <- paste0(listRGITHUB, '\'',selectGITHUB[pkg],'\'))"')
}
}
result <- paste(result, listRGITHUB, sep = "\n")
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment