diff --git a/DESCRIPTION b/DESCRIPTION
index 55d6a9c..07449b7 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -3,7 +3,7 @@ Type: Package
 Title: Create Map Insets
 Description: Map insets are small zoom-in or zoom-out maps that focus on particular territories. mapinsetr provides a set of functions that helps to create such insets.  
 Date: 2018-01-30
-Version: 0.2.0
+Version: 0.3.0
 Authors@R: c(
       person("Timothée", "Giraud", 
         email = "timothee.giraud@ums-riate.fr", role = c("cre","aut")),
@@ -17,4 +17,4 @@ URL: https://github.com/riatelab/mapinsetr/
 BugReports: https://github.com/riatelab/mapinsetr/issues/
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 6.0.1
+RoxygenNote: 6.1.1
diff --git a/R/inset_rbindr.R b/R/inset_rbindr.R
index 53a4131..2200203 100644
--- a/R/inset_rbindr.R
+++ b/R/inset_rbindr.R
@@ -11,8 +11,8 @@
 #' nc <- st_transform(nc, 32119)
 #' 
 #' plot(st_geometry(nc))
-#' mask1 <- st_buffer(st_centroid(nc[nc$CNTY_ID == 2026,]),dist = 30000)
-#' mask2 <- st_buffer(st_centroid(nc[nc$CNTY_ID == 2016,]),dist = 30000)
+#' mask1 <- st_buffer(st_centroid(st_geometry(nc[nc$CNTY_ID == 2026,])),dist = 30000)
+#' mask2 <- st_buffer(st_centroid(st_geometry(nc[nc$CNTY_ID == 2016,])),dist = 30000)
 #' plot(st_geometry(mask1), border = "red", lwd = 2, add = TRUE)
 #' plot(st_geometry(mask2), border = "red", lwd = 2, add = TRUE)
 #' inset1 <- move_and_resize(nc, mask1, xy = c(200000, 5000), k = 2)
diff --git a/R/move_and_resize.R b/R/move_and_resize.R
index 590c4af..b25e07b 100644
--- a/R/move_and_resize.R
+++ b/R/move_and_resize.R
@@ -1,8 +1,8 @@
 #' @title Move and Resize an sf Object
 #' @name move_and_resize
-#' @description Move and resize a simple feature collection of polygons or 
-#' multipolygons.
-#' @param x an sf POLYON or MULTIPOLYGON object to resize and move.
+#' @description Move and resize a simple feature collection of polygons, 
+#' multipolygons or points.
+#' @param x an sf POINT, POLYON or MULTIPOLYGON object to resize and move.
 #' @param mask an sf or sfc POLYGON or MULTIPOLYGON object used to select the 
 #' area to move an resize. 
 #' @param xy coordinates used to move the inset, bottomleft corner of the 
@@ -31,24 +31,25 @@
 move_and_resize <- function(x, mask = NULL, xy, prj, k = 1){
   # default prj 
   if(missing(prj)){prj <- st_crs(x)}
-  
   # default mask
   if (missing(mask)){
     mask <- st_union(x)
   }
-  
-  cp <- class(st_geometry(x))[1]=="sfc_MULTIPOLYGON"
-  
   # input proj tests
   stopifnot(!is.na(st_crs(mask)), !is.na(st_crs(x)))
-
   # union mask
   mask <- st_union(mask)
 
+
+  # if pts 
+  if (class(st_geometry(x))[1]=="sfc_POINT"){
+    move_and_resize_pt(x = x, mask = mask, xy = xy, prj = prj, k = k)
+  }
+    
+  cp <- class(st_geometry(x))[1]=="sfc_MULTIPOLYGON"
   # intersect mask and x
   options(warn=-1)
-  x <- st_collection_extract(st_intersection(x, st_geometry(mask)), 
-                             type = c("POLYGON"))
+  x <- st_intersection(x, st_geometry(mask))
   options(warn=0)
 
   # add mask to x
@@ -64,10 +65,29 @@ move_and_resize <- function(x, mask = NULL, xy, prj, k = 1){
   # get rid of mask
   x <- x[-1,]
 
-  
   if (cp){x <- st_cast(x, "MULTIPOLYGON")}
-  if(missing(prj)){}
   st_crs(x) <- prj
   
   return(x)
 }
+
+
+move_and_resize_pt <- function(x, mask, xy, prj, k){
+  # intersect mask and x
+  options(warn=-1)
+  x <- st_collection_extract(st_intersection(x, st_geometry(mask)), 
+                             type = c("POINT"))
+  options(warn=0)
+  # add mask to x
+  xm <- x[1, ]
+  st_geometry(xm) <- st_geometry(mask)
+  x <- rbind(xm,x)
+  # resize & move
+  cntrd <- st_centroid(st_combine(x))
+  xg <- (st_geometry(x) - cntrd) * k + cntrd[[1]][] 
+  st_geometry(x) <- xg + xy - st_bbox(xg)[1:2]
+  # get rid of mask
+  x <- x[-1,]
+  st_crs(x) <- prj
+  return(x)
+}
diff --git a/man/inset_rbinder.Rd b/man/inset_rbinder.Rd
index 5c4e18b..73cf43e 100644
--- a/man/inset_rbinder.Rd
+++ b/man/inset_rbinder.Rd
@@ -22,8 +22,8 @@ nc <- st_read(system.file("shape/nc.shp", package="sf"))
 nc <- st_transform(nc, 32119)
 
 plot(st_geometry(nc))
-mask1 <- st_buffer(st_centroid(nc[nc$CNTY_ID == 2026,]),dist = 30000)
-mask2 <- st_buffer(st_centroid(nc[nc$CNTY_ID == 2016,]),dist = 30000)
+mask1 <- st_buffer(st_centroid(st_geometry(nc[nc$CNTY_ID == 2026,])),dist = 30000)
+mask2 <- st_buffer(st_centroid(st_geometry(nc[nc$CNTY_ID == 2016,])),dist = 30000)
 plot(st_geometry(mask1), border = "red", lwd = 2, add = TRUE)
 plot(st_geometry(mask2), border = "red", lwd = 2, add = TRUE)
 inset1 <- move_and_resize(nc, mask1, xy = c(200000, 5000), k = 2)
diff --git a/man/move_and_resize.Rd b/man/move_and_resize.Rd
index 69053c1..f803273 100644
--- a/man/move_and_resize.Rd
+++ b/man/move_and_resize.Rd
@@ -7,7 +7,7 @@
 move_and_resize(x, mask = NULL, xy, prj, k = 1)
 }
 \arguments{
-\item{x}{an sf POLYON or MULTIPOLYGON object to resize and move.}
+\item{x}{an sf POINT, POLYON or MULTIPOLYGON object to resize and move.}
 
 \item{mask}{an sf or sfc POLYGON or MULTIPOLYGON object used to select the 
 area to move an resize.}
@@ -23,8 +23,8 @@ inset.}
 An sf object is returned.
 }
 \description{
-Move and resize a simple feature collection of polygons or 
-multipolygons.
+Move and resize a simple feature collection of polygons, 
+multipolygons or points.
 }
 \examples{
 library(sf)