small improvements

KlausVigo · Nov 19, 2024 · faec65d · faec65d
1 parent 6126689
commit faec65d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/pml_generics.R b/R/pml_generics.R
@@ -162,7 +162,8 @@ write.pml <- function(x, file="pml", save_rds=TRUE, ...){
   }
   else {
     call <- x$call
-    call$data <- "align"
+    call$data <- quote(align)
+    call$tree <- quote(tree)
     cat("tree <- read.tree(\"", file, "_tree.nwk\")\n", sep="")
     cat("align <- read.phyDat(\"", file, "_align.fasta\", format=\"fasta\")",
         sep="")