local(envir=.PBSmapEnv,expr={
oldpar = par(no.readonly=TRUE)
#--- load the data (if using R)
if (!is.null(version$language) && (version$language=="R"))
data(nepacLL,surveyData,envir=.PBSmapEnv)
#--- plot a map
plotMap(nepacLL, xlim=c(-136, -125), ylim=c(48, 57))
#--- add events
addPoints(surveyData, col=1:7)
par(oldpar)
})
Results
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(PBSmapping)
-----------------------------------------------------------
PBS Mapping 2.69.76 -- Copyright (C) 2003-2016 Fisheries and Oceans Canada
PBS Mapping comes with ABSOLUTELY NO WARRANTY;
for details see the file COPYING.
This is free software, and you are welcome to redistribute
it under certain conditions, as outlined in the above file.
A complete user guide 'PBSmapping-UG.pdf' is located at
/home/ddbj/local/lib64/R/library/PBSmapping/doc/PBSmapping-UG.pdf
Packaged on 2015-04-23
Pacific Biological Station, Nanaimo
All available PBS packages can be found at
http://code.google.com/p/pbs-software/
To see demos, type '.PBSfigs()'.
-----------------------------------------------------------
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/PBSmapping/addPoints.Rd_%03d_medium.png", width=480, height=480)
> ### Name: addPoints
> ### Title: Add EventData/PolyData to an Existing Plot as Points
> ### Aliases: addPoints
> ### Keywords: aplot
>
> ### ** Examples
>
> local(envir=.PBSmapEnv,expr={
+ oldpar = par(no.readonly=TRUE)
+ #--- load the data (if using R)
+ if (!is.null(version$language) && (version$language=="R"))
+ data(nepacLL,surveyData,envir=.PBSmapEnv)
+ #--- plot a map
+ plotMap(nepacLL, xlim=c(-136, -125), ylim=c(48, 57))
+ #--- add events
+ addPoints(surveyData, col=1:7)
+ par(oldpar)
+ })
>
>
>
>
>
> dev.off()
null device
1
>