blah.r

blah.r

library(tidyverse)
library(plumber)
library(sf)
library(geojson)

register_serializer("geojson", serializer_geojson, verbose = TRUE)

#* @serializer geojson
#* @get /points
points <- function() {
  data <- read_csv("https://gist.githubusercontent.com/kochis/535208c97d99651e052487618bde7730/raw/35d43acbe8f9188691fde4238f838ad0572ea871/locations.csv")
  data <- st_as_sf(data,coords=c("longitude","latitude"),crs=4326)
  return(data)
}