crd <- matrix(ncol = 3, nrow = 12)
# x-coordinates
set.seed(10)
crd[, 1] <- rnorm(nrow(crd), 10, 3)
# y-coordinates
set.seed(10)
crd[, 2] <- rnorm(nrow(crd), 50, 3)
# additional data
crd[, 3] <- month.abb
# reformat a single pair of coordinates
coords2JSON(crd[1, ])
# reformat multiple pairs of coordinates at once
coords2JSON(crd)
Run the code above in your browser using DataLab