Transition from "raster" to "terra" package

Author: ma-z-am

DESCRIPTION

@@ -24,9 +24,8 @@ Imports:
     htmlwidgets,
     leaflet,
     openeo,
-    raster,
-    ncdump,
-    methods
+    terra
 Depends: 
     R (>= 4.0.0)
 LazyData: true
+LazyDataCompression: bzip2

NAMESPACE

@@ -1,39 +1,39 @@
 # Generated by roxygen2: do not edit by hand
 
-export(EO_assessment_class)
-export(EO_assessment_numeric)
-export(add_to_database)
-export(additive_per_image)
-export(aggregate_NDTrI)
+export(add_lakeID)
 export(bbox_from_point)
 export(bbox_from_polygon)
 export(bbox_from_rectangle)
 export(best_nk)
-export(create_database)
+export(combine_years_dynamic)
+export(combine_years_lakeData)
+export(combine_years_pixelData)
+export(discreteClassAssessment)
 export(display_geometry)
 export(download_openEO_job)
 export(dynamic_per_pixel)
 export(find_trends)
-export(load_bandLayer)
-export(load_database)
-export(load_netcdf)
+export(index_spread)
+export(load_BandLayer)
 export(map_layer)
 export(nc_scene_per_image)
-export(nc_time_filter)
 export(ndi_per_image)
-export(ndtriLake_to_df)
-export(ndtri_spread)
+export(numericAssessment)
+export(oneLake_df)
+export(open_netcdf)
 export(pixel_clusters)
 export(plot_class_assessment)
 export(plot_dynamic)
-export(plot_image_dates)
-export(plot_lake_ndtri_histogram)
+export(plot_lake_index_histogram)
 export(plot_layer)
 export(plot_numeric_assessment)
+export(plot_scene_coverage)
 export(prepare_for_clustering)
-export(save_lake_data)
+export(sameDimProjection)
 export(save_leaflet)
+export(seasonal_index_per_lake)
 export(seasonal_index_per_pixel)
+export(show_pixels)
 export(start_openEO_job)
 export(trends_to_classes)
 export(waterscene_proportion)
@@ -42,8 +42,6 @@ importFrom(geosphere,distGeo)
 importFrom(grDevices,col2rgb)
 importFrom(grDevices,colorRampPalette)
 importFrom(grDevices,dev.new)
-importFrom(grDevices,dev.off)
-importFrom(grDevices,png)
 importFrom(grDevices,rgb)
 importFrom(graphics,abline)
 importFrom(graphics,arrows)
@@ -69,31 +67,25 @@ importFrom(leaflet,colorFactor)
 importFrom(leaflet,colorNumeric)
 importFrom(leaflet,leaflet)
 importFrom(leaflet,setView)
-importFrom(methods,is)
-importFrom(ncdump,NetCDF)
 importFrom(openeo,create_job)
 importFrom(openeo,download_results)
 importFrom(openeo,list_file_formats)
 importFrom(openeo,list_jobs)
 importFrom(openeo,processes)
 importFrom(openeo,start_job)
-importFrom(raster,as.matrix)
-importFrom(raster,brick)
-importFrom(raster,crop)
-importFrom(raster,crs)
-importFrom(raster,extend)
-importFrom(raster,image)
-importFrom(raster,projectExtent)
-importFrom(raster,projectRaster)
-importFrom(raster,raster)
-importFrom(raster,subset)
-importFrom(raster,values)
 importFrom(stats,cor)
+importFrom(stats,density)
 importFrom(stats,kmeans)
 importFrom(stats,lm)
 importFrom(stats,median)
 importFrom(stats,quantile)
 importFrom(stats,sd)
+importFrom(terra,crs)
+importFrom(terra,describe)
+importFrom(terra,ext)
+importFrom(terra,image)
+importFrom(terra,project)
+importFrom(terra,rast)
+importFrom(terra,values)
+importFrom(terra,xFromCol)
 importFrom(tidyr,spread)
-importFrom(utils,read.csv)
-importFrom(utils,write.table)

R/EO_assessment_class.R

@@ -1,18 +1,18 @@
 #' Bounding Box from point coordinate
 #' 
-#' @param lon,lat Longitude and latitude in WGS 84 EPSG:4326 
+#' @param lat,lon Latitude and longitude in WGS 84 EPSG:4326 
 #' @param meters The distance around the point to create the bounding box.
 #' Needs to be > 0.
 #' 
 #' @export
 #' 
 #' @importFrom geosphere destPoint
 #' 
-bbox_from_point <- function(lon, lat, meters = 20){
-  c("north" = geosphere::destPoint(p = c(lat, lon), b = 0, d = meters)[2],
-    "east" = geosphere::destPoint(p = c(lat, lon), b = 90, d = meters)[1],
-    "south" = geosphere::destPoint(p = c(lat, lon), b = 180, d = meters)[2],
-    "west" = geosphere::destPoint(p = c(lat, lon), b = -90, d = meters)[1]
+bbox_from_point <- function(lat, lon, meters = 20){
+  c("north" = geosphere::destPoint(p = c(lon, lat), b = 0, d = meters)[2],
+    "east" = geosphere::destPoint(p = c(lon, lat), b = 90, d = meters)[1],
+    "south" = geosphere::destPoint(p = c(lon, lat), b = 180, d = meters)[2],
+    "west" = geosphere::destPoint(p = c(lon, lat), b = -90, d = meters)[1]
   )
 }