gBuffer won't install

General
1

Hi!
First time user!
I am using Spatialeco package to detect sharks using acoustic receivers. My teacher created a buffer of 300m using Spatialeco and gBuffer package. It was working but now says my version of R does not support gBuffer. Please help! I have an assignment due today! I can't find the right package for my version of R (4.2)

detectionsS1a<-detection_series(trackS1, receiver.locs3, mydir, xrange, yrange)

Error in gBuffer(rec.sp, byid = T, id = rec.sp[[1]], width = 300) :
could not find function "gBuffer"
Warning in install.packages :
package ‘gbuffer’ is not available for this version of R

A version of this package for your version of R might be available elsewhere,
see the ideas at

2

I believe there is no R package called gBuffer, maybe you are referring to the gBuffer() function from the rgeos package?

If so, load rgeos before using the function.

3

Thank you, I have just installed this package but it will still not work. I tried geo.buffer however it said I have projected coordinates (UTM) not lat long. You will see object 'Range' has been given the gBuffer argument. It was working correctly until yesterday. Thanks you for helping :slight_smile:

This is the function my teacher created to make the detection series and apply the buffer of 300m::
detection_series<-function(animaltrack, receiver.locs, mydirectory, easting, northing) {
packages<-function(x){
x<-as.character(match.call()[[2]])
if (!require(x,character.only=TRUE)){
install.packages(pkgs=x,repos="http://cran.r-project.org")
require(x,character.only=TRUE)
}
}
packages(rgdal)
packages(spatialEco)
packages(RColorBrewer)
library(rgdal)

rec.sp<-SpatialPointsDataFrame(coords=matrix(c(receiver.locs$x, receiver.locs$y), nrow=nrow(receiver.locs), ncol=2), data=as.data.frame(receiver.locs$id), proj=CRS('+proj=utm +zone=55 +south +ellps=GRS80 +units=m +no_defs'))
range<-gBuffer(rec.sp, byid=T, id=rec.sp[[1]], width=300)
track.sp<-SpatialPointsDataFrame(coords=matrix(c(animaltrack$x, animaltrack$y), nrow=nrow(animaltrack), ncol=2), data=as.data.frame(animaltrack$date), proj=CRS('+proj=utm +zone=55 +south +ellps=GRS80 +units=m +no_defs'))
track.line<-Lines(list(Line(coordinates(track.sp))), 'animal')
dets<-point.in.poly(track.sp, range)
det<-data.frame(date=dets[[1]], rec.id=dets[[2]])
det$x<-receiver.locs$x[match(det$rec.id, receiver.locs$id)]
det$y<-receiver.locs$y[match(det$rec.id, receiver.locs$id)]
land<- readOGR(dsn=mydirectory, layer="tas_land_map_wgs84")
land.utm<-spTransform(land, CRS('+proj=utm +zone=55 +south +ellps=GRS80 +units=m +no_defs'))
mpas<- readOGR(dsn=mydirectory, layer="maria_reserve")
if(.Platform$OS.type=="windows") {
quartz<-function() windows()
}
quartz()
plot(land.utm, xlim=easting, ylim=northing, col='lightgrey',xlab='Easting (UTM)', ylab='Northing (UTM)', axes=TRUE, xaxs='i', yaxs='i')
plot(mpas, add=T, col=adjustcolor('indianred1', .5))
plot(rec.sp, add=T, pch=20)
plot(range, add=T)
lines(animaltrack$x, animaltrack$y, col='red')
return(det)
}

4

I just ran it again AND IT WORKED!!! Thank you, you are a LIFE SAVER!!

Grateful uni student!!!

Thanks
Naomi