[Dplr-commits] r765 - pkg/dplR/man

[noreply at r-forge.r-project.org]

Author: mvkorpel
Date: 2014-04-04 15:06:46 +0200 (Fri, 04 Apr 2014)
New Revision: 765

Modified:
   pkg/dplR/man/write.tridas.Rd
Log:
Use tempfile() instead of working directory (should have been in the
previous commit).


Modified: pkg/dplR/man/write.tridas.Rd
===================================================================
--- pkg/dplR/man/write.tridas.Rd	2014-04-04 12:48:38 UTC (rev 764)
+++ pkg/dplR/man/write.tridas.Rd	2014-04-04 13:06:46 UTC (rev 765)
@@ -351,7 +351,8 @@
 
 \examples{## Write raw ring widths
 data(co021)
-write.tridas(rwl.df = co021, fname = "tmp1.xml", prec = 0.01,
+fname1 <- write.tridas(rwl.df = co021,
+    fname = tempfile(fileext=".xml"), prec = 0.01,
     site.info = list(title = "Schulman old tree no. 1, Mesa Verde",
                      type = "unknown"),
     taxon = "Pseudotsuga menziesii var. menziesii (Mirb.) Franco",
@@ -363,13 +364,13 @@
 data(ca533)
 ca533.rwi <- detrend(rwl = ca533, method = "ModNegExp")
 ca533.crn <- chron(ca533.rwi, prefix = "CAM", prewhiten = TRUE)
-fname <- write.tridas(crn = ca533.crn,
+fname2 <- write.tridas(crn = ca533.crn,
     fname = tempfile(fileext=".xml"),
     taxon = "Pinus longaeva D.K. Bailey",
     project.info =
         list(investigator = "Donald A. Graybill, V.C. LaMarche, Jr.",
              title = "Campito Mountain", category = "",
              period = "", type = "unknown"))
-unlink(fname) # remove the file
+unlink(c(fname1, fname2)) # remove the files
 }
 \keyword{ IO }