From 850809f1cbbde50fa48c587496c1081df1b1f204 Mon Sep 17 00:00:00 2001
From: Hiroaki Yutani <yutani.ini@gmail.com>
Date: Wed, 6 Jun 2018 06:34:15 +0900
Subject: [PATCH] add fortify() method for sfc and sfg

---
 NAMESPACE           |  2 ++
 R/fortify-spatial.r | 13 +++++++++++++
 2 files changed, 15 insertions(+)

diff --git a/NAMESPACE b/NAMESPACE
index 279468e927..2592aaa86c 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -38,6 +38,8 @@ S3method(fortify,glht)
 S3method(fortify,grouped_df)
 S3method(fortify,lm)
 S3method(fortify,map)
+S3method(fortify,sfc)
+S3method(fortify,sfg)
 S3method(fortify,summary.glht)
 S3method(fortify,tbl)
 S3method(ggplot,"function")
diff --git a/R/fortify-spatial.r b/R/fortify-spatial.r
index d391b97b0b..dd239e5427 100644
--- a/R/fortify-spatial.r
+++ b/R/fortify-spatial.r
@@ -108,3 +108,16 @@ fortify.Line <- function(model, data, ...) {
   df$order <- 1:nrow(df)
   df
 }
+
+
+#' @export
+#' @method fortify sfc
+fortify.sfc <- function(model, data, ...) {
+  sf::st_sf(geometry = model)
+}
+
+#' @export
+#' @method fortify sfg
+fortify.sfg <- function(model, data, ...) {
+  sf::st_sf(geometry = sf::st_sfc(model))
+}