paste0 statt paste

KlausVigo · Nov 28, 2024 · 41eba40 · 41eba40
1 parent 3e22105
commit 41eba40
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/R/clanistic.R b/R/clanistic.R
@@ -174,7 +174,7 @@ getSlices <- function(tree){
     k <- 1
     for(i in 1:l){
         tmp1 <- as.numeric((clans[index[i,1],] + clans[index[i,2],])==2)
-        tmp <- paste(tmp1, sep="", collapse="")
+        tmp <- paste0(tmp1, collapse="")
         if(is.na(match(tmp,strClan))){
             result[k,] <- tmp1
             k <- k+1

diff --git a/R/distSeq.R b/R/distSeq.R
@@ -337,8 +337,8 @@ write.nexus.dist <- function(x, file = "", append = FALSE, upper = FALSE,
   if (!append) cat("#NEXUS\n\n", file = file)
 
   if (taxa) {
-    cat(paste("BEGIN TAXA;\n\tDIMENSIONS ntax=", ntaxa, ";\n",
-      sep = ""), file = file, append = TRUE)
+    cat(paste0("BEGIN TAXA;\n\tDIMENSIONS ntax=", ntaxa, ";\n"), file = file,
+        append = TRUE)
     cat("\tTAXLABELS", paste(taxa.labels, sep = " "), ";\nEND;\n\n",
       file = file, append = TRUE)
   }

diff --git a/R/phylo.R b/R/phylo.R
@@ -602,7 +602,7 @@ readAArate <- function(file) {
 
 getModelAA <- function(model, bf = TRUE, Q = TRUE, has_gap_state=FALSE) {
   model <- match.arg(eval(model), .aamodels)
-  tmp <- get(paste(".", model, sep = ""), environment(pml))
+  tmp <- get(paste0(".", model), environment(pml))
   if(has_gap_state){
     tmp$Q <- add_gap_Q_AA(tmp$Q)
     tmp$bf <- add_gap_bf_AA(tmp$bf)