# NOT RUN {
if(requireNamespace("curl") &
curl::has_internet()
) {
# create some data
d <- data.frame(
id=1:3,
qq=c('SW', 'SW', 'SE'),
q=c('NE', 'NW', 'SE'),
s=c(17, 32, 30),
t=c('T36N', 'T35N', 'T35N'),
r=c('R29W', 'R28W', 'R28W'),
type='SN',
m='MT20', stringsAsFactors = FALSE)
# add column names
names(d) <- c('id', 'qq', 'q', 's', 't', 'r', 'type', 'm')
# generate formatted PLSS codes
d$plssid <- formatPLSS(d)
# fetch lat/long coordinates
PLSS2LL(d)
}
# }
Run the code above in your browser using DataLab