From dc51de6f15f5b72b260d30ebc9991c9bd92d390e Mon Sep 17 00:00:00 2001
From: Hollos Roland <hollorol@gmail.com>
Date: Wed, 23 Jun 2021 12:26:34 +0200
Subject: [PATCH] change treeplot output to svg

---
 RBBGCMuso/R/multiSite.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/RBBGCMuso/R/multiSite.R b/RBBGCMuso/R/multiSite.R
index 0fb7929..dd24019 100644
--- a/RBBGCMuso/R/multiSite.R
+++ b/RBBGCMuso/R/multiSite.R
@@ -221,7 +221,7 @@ multiSiteCalib <- function(measurements,
     treeData <- results[,-notForTree]
     treeData$failType <- as.factor(treeData$failType)
     rp <- rpart(failType ~ .,data=treeData,control=treeControl)
-    png("treeplot.png")
+    svg("treeplot.svg")
     rpart.plot(rp)
     dev.off()
     origModOut <- future::value(fut[[1]], stdout = FALSE, signal=FALSE)[["origModOut"]]