Use as.data.frame so handle_dates doesn't try to convert geom column

SymbolixAU · Sep 25, 2018 · c915f72 · c915f72
1 parent c418bb0
commit c915f72
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/geojson_sf.R b/R/geojson_sf.R
@@ -152,7 +152,7 @@ date_columns <- function( sf ) names(which(vapply(sf , function(x) { inherits(x,
 
 handle_dates <- function( x ) {
 	dte <- date_columns( x )
-	x[dte] <- lapply(x[dte], as.character)
+	x[dte] <- lapply(as.data.frame(x)[dte], as.character)
 	return( x )
 }