fix typo

Author: kongdd

R/st_tools.R

@@ -70,7 +70,7 @@ st_dissolve <- function(x, by = NULL, ...) UseMethod("st_dissolve")
 #' @rdname st_dissolve
 #' @export
 st_dissolve.sf <- function(x, by = NULL, ...) {
-  if (is.null(by) || !(by %in% colnames(shp))) by <- colnames(x)[1]
+  if (is.null(by) || !(by %in% colnames(x))) by <- colnames(x)[1]
   x %>%
     dplyr::group_by_at(by) %>%
     dplyr::summarise(...)