update geom_diatom_code

Author: junqueiragaabi

.Rhistory

@@ -447,13 +447,23 @@ devtools::load_all()
 devtools::check()
 devtools::check()
 devtools::install_github("junqueiragaabi/DiatoViz")
-library(DiatoViz)
-teste <- DiatoViz::valid_diatom_code()
-View(teste)
-teste
-lenth(teste)
-lenght(teste)
-length(teste)
-DiatoViz::diatom_species
-a <- DiatoViz::diatom_species
-View(a)
+usethis::use_logo("logo.png")
+devtools::load_all()
+devtools::check()
+usethis::use_pkgdown()
+pkgdown::build_site()
+View(diatom_species)
+devtools::load_all()
+devtools::check()
+pkgdown::build_site()
+usethis::use_vignette()
+use_pkgdown(config_file = "_pkgdown.yml", destdir = "docs")
+usethis::use_pkgdown(config_file = "_pkgdown.yml", destdir = "docs")
+usethis::use_pkgdown_github_pages()
+usethis::use_pkgdown_github_pages()
+cite("DiatoViz")
+citation("DiatoViz")
+citation("DiatoViz")
+devtools::load_all()
+citation("DiatoViz")
+citation()

R/geom_diatom_code.R

@@ -66,16 +66,17 @@ GeomDIATOM <- ggplot2::ggproto(
   ),
   draw_panel = function(data, panel_params, coord, na.rm = FALSE) {
 
-    diatom_code <- clean_diatom_code(as.character(data$diatom_code), keep_non_matches = FALSE)
+    data <- coord$transform(data, panel_params)
 
-    data$path <- shape_from_diatom(diatom_code)
+    data$diatom_code <- clean_diatom_code(as.character(data$diatom_code), keep_non_matches = FALSE)
 
-    ggpath::GeomFromPath$draw_panel(
-      data = data,
-      panel_params = panel_params,
-      coord = coord,
-      na.rm = na.rm
-    )
+    grobs <- lapply(seq_along(data$diatom_code), ggpath::build_grobs, alpha = data$alpha, colour = data$colour, data = data)
+
+    class(grobs) <- "gList"
+
+    grid::gTree(children = grobs)
   },
   draw_key = function(...) grid::nullGrob()
 )
+
+