Nothing
inside.reg.bc <-
function(data, only.sv.1to10 = F, ignore.latlon = F, ignore.area0 = T)
{
if(is.na(match("lat", names(data)))) {
data$lat <- data$lon <- rep(NA, nrow(data))
}
if(!is.na(match("area", names(data)))) {
print("warning column area exists")
return(invisible(data))
}
n <- nrow(data)
data$area <- rep(NA, nrow(data))
index <- !is.na(data$lat) & !is.na(data$lon)
index1 <- c(1:length(index))
index1 <- index1[index]
if(ignore.latlon)
index1 <- NULL
if(length(index1) > 0) {
area <- inside.reg.bc1(data[index1, c("lat", "lon")])$area
data$area[index1] <- area
}
if(is.na(match("reitur", names(data))))
return(data)
if(ignore.latlon)
index1 <- c(1:nrow(data))
else {
index <- (is.na(data$lat) | is.na(data$lon)) & !is.na(data$
reitur)
if(ignore.area0)
index <- index | (data$area == 0 & !is.na(data$area))
index1 <- c(1:length(index))
index1 <- index1[index]
}
if(length(index1) > 0) {
reitdata <- data[index1, ]
if(only.sv.1to10) {
reitdata$area <- Reitur2Svaedi1to10(reitdata$reitur)
}
else {
if(is.na(match("smareitur", names(reitdata))))
reitdata$smareitur <- rep(0, nrow(reitdata))
else reitdata$smareitur[is.na(reitdata$smareitur)] <-
0
tmp <- data.frame(sr2d(reitdata$reitur * 10 + reitdata$
smareitur))
ind <- c(1:nrow(tmp))
ind <- ind[!is.na(tmp$lat)]
reitdata$area[ind] <- inside.reg.bc1(tmp[ind, ])$
area
}
data$area[index1] <- reitdata$area
}
return(data)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.