Bug reapired

j-miszczyszyn · Feb 8, 2024 · c8e88cd · c8e88cd
1 parent e172638
commit c8e88cd
Show file tree

Hide file tree

Showing 7 changed files with 0 additions and 7 deletions.
diff --git a/R/calculate_CCI.R b/R/calculate_CCI.R
@@ -10,5 +10,4 @@ calculate_CCI=function(r){
   green<- r[, , , band_green, drop = TRUE]
   red <- r[, , , band_red, drop = TRUE]
   cci <- (green-red)/(green+red)
-  assign("cci", cci, envir = .GlobalEnv)
 }
diff --git a/R/calculate_DVI.R b/R/calculate_DVI.R
@@ -10,5 +10,4 @@ calculate_DVI=function(r){
   red=r[, , , band_red, drop = TRUE]
   nir=r[, , , band_nir, drop = TRUE]
   dvi = (nir - red)
-  assign("dvi", dvi, envir = .GlobalEnv)
 }
diff --git a/R/calculate_GDVI.R b/R/calculate_GDVI.R
@@ -10,5 +10,4 @@ calculate_GDVI=function(r){
   green=r[, , , band_green, drop = TRUE]
   nir=r[, , , band_nir, drop = TRUE]
   gdvi = (nir - green)
-  assign("gdvi", gdvi, envir = .GlobalEnv)
 }
diff --git a/R/calculate_GSAVI.R b/R/calculate_GSAVI.R
@@ -11,5 +11,4 @@ calculate_GSAVI=function(r){
   red=r[, , , band_red, drop = TRUE]
   nir=r[, , , band_nir, drop = TRUE]
   gsavi = (nir - green)/ (nir + green+1)*1.5
-  assign("gsavi", gsavi, envir = .GlobalEnv)
 }
diff --git a/R/calculate_MSAVI.R b/R/calculate_MSAVI.R
@@ -10,5 +10,4 @@ calculate_MSAVI=function(r){
   nir <- r[, , , band_nir, drop = TRUE]
   red <- r[, , , band_red, drop = TRUE]
   msavi <- (2 * nir + 1 - sqrt((2 * nir + 1)^2 - 8 * (nir - red))) / 2
-  assign("msavi", msavi, envir = .GlobalEnv)
 }
diff --git a/R/calculate_NDVI.R b/R/calculate_NDVI.R
@@ -10,5 +10,4 @@ calculate_NDVI=function(r){
   red=r[, , , band_red, drop = TRUE]
   nir=r[, , , band_nir, drop = TRUE]
   ndvi = (nir - red) / (nir + red)
-  return(ndvi)
 }
diff --git a/R/calculate_TGI.R b/R/calculate_TGI.R
@@ -11,5 +11,4 @@ calculate_TGI=function(r){
   green=r[, , , band_green, drop = TRUE]
   red=r[, , , band_red, drop = TRUE]
   tgi = green -(0.39*red)-(0.61*blue)
-  assign("tgi", tgi, envir = .GlobalEnv)
 }