nemo: Empty circle

#https://speakerdeck.com/colinfay/building-a-package-that-lasts-erum-2018-workshop
#https://thinkr.fr/creer-package-r-quelques-minutes/

unlink("DESCRIPTION")
my_desc <- desc::description$new("!new")
my_desc$set("Package","nemo")
my_desc$set("Authors@R", "person('Mathieu', 'Garnier',email='matai.dat@gmail.com', role=c('cre','aut'))")
#my_desc$set_authors()
my_desc$del("Maintainer")
my_desc$set_version("0.0.0.9000")
my_desc$set(Description = "Find largest empty circle")
my_desc$set("URL","https://github.com/mtmx/nemo")
my_desc$set("BugReports","https://github.com/mtmx/nemo/issues")

# save
my_desc$write(file = "DESCRIPTION")

#
use_readme_rmd()
use_mit_license(name="mtmx")


usethis::use_package("dplyr", "magrittr","concaveman","sf", "nngeo")


use_travis()

#tests
usethis::use_test("nemo_circle")

library(roxygen2)
#générer doc .Rd
roxygen2::roxygenise()


#vignettes :
#devtools::build_vignettes()

# pour générer les articles issues des vignettes
#pkgdown::build_articles(pkg = ".")


# vérification de l'intégrité du package
devtools::check()

proj_set()
usethis::use_rstudio()
usethis::use_git()


#https://kbroman.org/pkg_primer/pages/github.html

data(points)
hull_pts <-
  nemo_hull(points = points %>% st_transform(2154),
            concavity =2,
            length_threshold = 10)

nemo_pts <-
  nemo_circle(points = points %>% st_transform(2154),
              hull = hull_pts %>% st_buffer(dist=500),
              strict_inclusion = T,
              nmax_circles = 1)

# visu ggplot
library(ggplot2)
ggplot() +
  geom_sf(data = hull_pts %>% st_buffer(dist=500)  , size = 0.2) +
  geom_sf(data = nemo_pts  ,#%>% filter(id_vor ==1)  ,
          #aes(size = dist),
          size = 1,
          fill=NA,
          color = "red") +
  geom_sf(data = nemo_pts %>% st_centroid() ,
             size = 1,
             col = "red") +
  geom_sf(data=points %>% st_transform(2154))