fix bug from changes in functions args

R/Lib_Validation_biodivMapR.R

@@ -19,9 +19,9 @@
 #' @import tools
 #' @export
 projection.file <- function(file, type = 'raster'){
-  if (Type == 'raster'){
+  if (type == 'raster'){
     obj <- raster(file)
-  } else if (Type == 'vector'){
+  } else if (type == 'vector'){
     Shp.Path      = dirname(file)
     Shp.Name      = file_path_sans_ext(basename(file))
     obj  = readOGR(dsn = Shp.Path,layer = Shp.Name,verbose = FALSE)

examples/example_script.R

@@ -21,7 +21,8 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>
 #
 # ===============================================================================
-
+library(raster)
+library(biodivMapR)
 ################################################################################
 ##              DEFINE PARAMETERS FOR DATASET TO BE PROCESSED                 ##
 ################################################################################