r <- raster(system.file("external/test.grd", package="raster"))
r <- saveAs(r, filename='test.grd', format='raster', overwrite=TRUE)
rc <- copyRasterFile(r, filename='test2.grd', overwrite=TRUE)
rm <- moveRasterFile(r, filename='test3.grd', overwrite=TRUE)
Run the code above in your browser using DataLab