Indentation

R-package/R/inner_procedure.r

@@ -65,7 +65,12 @@ sample_nb <- function(raster,
   ###
   n_channel <- length(names(raster))
   ###raster in MEMORY or NOT
-  if (in.memory == TRUE && raster::fromDisk(raster) == TRUE) { rast <- raster::readAll(raster) }else { rast <-raster }
+  if (in.memory == TRUE &&
+      raster::fromDisk(raster) == TRUE) {
+    rast <- raster::readAll(raster)
+  } else {
+    rast <- raster
+  }
   ###
   l <- 1        ###6. opt=260
   pbtn1 <- matrix(1, nrow = 1, ncol = 1)