Running examples in ‘seas-Ex.R’ failed
The error most likely occurred in:

> ### Name: getstnname
> ### Title: Get station name
> ### Aliases: getstnname
> ### Keywords: utilities
> 
> ### ** Examples
> 
> data(mscdata)
> 
> mscdata$id[1]
[1] 1096450
Levels: 1096450 1108447 2100630
> getstnname(mscdata$id[1])
[1] "PRINCE GEORGE A"
> 
> ids <- levels(mscdata$id)
> data.frame(id=I(ids), name=getstnname(ids))
Error in length(name) == 0 || is.na(name) : 
  'length = 3' in coercion to 'logical(1)'
Calls: data.frame -> getstnname
Execution halted