Update files and fix github runs

Update tests and runs

Author: YuriNiella

R/extractEnv.R

@@ -79,7 +79,7 @@
 ##'               env_var = "rs_sst_interpolated",
 ##'               full_timeperiod = FALSE,
 ##'               fill_gaps = TRUE,
-##'               folder_name = "test",
+##'               buffer = 20000,
 ##'               .parallel = FALSE)
 ##'
 ##' @importFrom dplyr %>% mutate distinct pull left_join select
@@ -112,6 +112,10 @@ extractEnv <- function(df, X, Y, datetime,
     if(is.null(station_name))
       stop("Please provide column with station names in the 'station_name' argument.")
   }
+  if (fill_gaps & is.null(buffer)) {
+    stop("Please provide a 'buffer' size to fill gaps.")
+
+  }
   # Define spatial and temporal extent of data fetch:
   data_details <- ext_find(
     .df = df, 

R/extract_func.R

@@ -16,7 +16,8 @@
 #'
 #' @importFrom dplyr %>%
 #'
-#' @export
+#' @keywords internal
+
 
 extract_func <- function(dataset, data_details, lon.min, lon.max, lat.min, lat.max,
   var_name, .fill_gaps, .buffer) {
@@ -37,7 +38,7 @@ extract_func <- function(dataset, data_details, lon.min, lon.max, lat.min, lat.m
       }
     )
   }
-  if (class(remote_nc) == "character") {
+  if (inherits(remote_nc, what = "character")) {
     # Environmental data not available
     if (var_name == "rs_current") {
         df_exp <- data_details$unique_positions %>%
@@ -152,7 +153,7 @@ extract_func <- function(dataset, data_details, lon.min, lon.max, lat.min, lat.m
                 remote_rast <- ("Non-regular grid!")
               }
           )
-          if (class(remote_rast) == "character") {
+          if (inherits(remote_rast, what = "character")) {
             # Use interpolation when cell sizes are not even
             aux_df <- remote_df[,c("LON", "LAT", var_name)]
             names(aux_df)[3] <- "var" 

R/globals.R

@@ -12,5 +12,11 @@ utils::globalVariables(c("Time",
   "yt_ocean",
   "yu_ocean",
   "error",
-  "locs"
+  "locs",
+  "LONGITUDE",
+  "LATITUDE",
+  "aux", 
+  "ii",
+  "tag_device_project_name.x",
+  "tag_device_project_name.y"
   ))