Remove pie charts for now

cidm-ph · May 5, 2023 · 8715b45 · 8715b45
1 parent 2c6d1de
commit 8715b45
Show file tree

Hide file tree

Showing 6 changed files with 0 additions and 247 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -8,9 +8,6 @@ Authors@R:
              email = "Carl.Suster@health.nsw.gov.au",
              role = c("aut", "cre"),
              comment = c(ORCID = "0000-0001-7021-9380")),
-      person("Thomas Lin Pedersen",
-             role = "ctb",
-             comment = "Original author of some code in pie.R taken from 'ggforce'"),
       person("Western Sydney Local Health District, NSW Health",
              role = "cph"))
 Description: Mapping geometries based on 'ggplot2' for easy maps.
@@ -33,7 +30,6 @@ Imports:
     dplyr (>= 1.0.0),
     ggmapinset (>= 0.2.5),
     ggplot2 (>= 3.4.2),
-    ggforce (>= 0.4.1),
     packcircles (>= 0.3.4),
     rlang (>= 1.0.0),
     sf (>= 1.0),
@@ -52,7 +48,6 @@ Collate:
     'geom_centroids.R'
     'geoscatter.R'
     'ggautomap-package.R'
-    'pie.R'
     'position_circle_repel.R'
 URL: https://github.com/cidm-ph/ggautomap,
     https://cidm-ph.github.io/ggautomap/

diff --git a/NAMESPACE b/NAMESPACE
@@ -1,13 +1,11 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method(ggplot_add,ggautomap_zoom_spec)
-export(GeomPie)
 export(GeomSfInset)
 export(PositionCircleRepel)
 export(PositionCircleRepelSf)
 export(StatAutomap)
 export(StatAutomapCoords)
-export(StatCentroidPie)
 export(StatChoropleth)
 export(StatGeoscatter)
 export(StatSfCoordinatesInset)
@@ -21,7 +19,6 @@ export(geom_centroids)
 export(geom_choropleth)
 export(geom_geoscatter)
 export(geom_inset_frame)
-export(geom_pie)
 export(geom_sf_inset)
 export(geom_sf_label_inset)
 export(geom_sf_text_inset)

diff --git a/R/pie.R b/R/pie.R
diff --git a/man/geom_pie.Rd b/man/geom_pie.Rd
diff --git a/man/ggautomap-package.Rd b/man/ggautomap-package.Rd
diff --git a/vignettes/ggautomap.Rmd b/vignettes/ggautomap.Rmd
@@ -213,25 +213,3 @@ covid_cases_nsw %>%
   labs(x = NULL, y = NULL) +
   theme_void()
 ```
-
-
-## Pie charts
-
-This example also shows `geom_pie()`, which aggregates points in each location and
-makes primitive pie charts. This geom does not currently support insets.
-
-```{r pies}
-national_data <- data.frame(state = sample(c("qld", "nsw", "vic", "sa", "act"),
-                                           size = 1000, replace = TRUE,
-                                           prob = c(0.2, 0.35, 0.3, 0.1, 0.05)),
-                            type = sample(c("A", "B", "C"),
-                                          size = 1000, replace = TRUE,
-                                          prob = c(0.3, 0.6, 0.1)))
-national_data$type[national_data$state == "act"] <- "A"
-
-national_data %>%
-  ggplot(aes(location = state)) +
-  geom_boundaries(feature_type = "nswgeo.states") +
-  geom_pie(aes(fill = type), pie_radius = 1.5) +
-  theme_void()
-```