Nothing
smorgesboard <- function( data1, data2 , lat_long1_char, lat_long2_char) {
X <- as.matrix( data1[,lat_long1_char] ) # Turn data into X, Y matrices to send to nearest_dbox2()
Y <- as.matrix( data2[, lat_long2_char] )
list_hold <- nearest_dbox2(lat_lon1d = X, lat_lon2d = Y) # Execute nearest_dbox2, which is internal
distance_haversine <- list_hold$distance # extract distance
distance_mile <- Rvoterdistance::dist_mile(num_vec=distance_haversine, vec_only=TRUE) # Miles
distance_km <- Rvoterdistance::dist_km(num_vec=distance_haversine, vec_only=TRUE) # Kilometers
smorge <- data.frame(data1,data2[list_hold$rows,], distance_haversine, distance_mile, distance_km) #Piece together
row.names(smorge) <-NULL # Clean up rownames
return(smorge)
}
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.