Nothing
v_snapping <- function(x, sites, nearest_subsegs) {
sg.col <- attributes(sites)$sf_column
st_nearest_points(sites[x, sg.col], nearest_subsegs[[x]])
}
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.