fix foreach warning

DESCRIPTION

@@ -51,6 +51,6 @@ Suggests:
 LinkingTo: 
     RcppArmadillo,
     Rcpp
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Roxygen: list(markdown = TRUE)
 Config/testthat/edition: 3

NAMESPACE

@@ -13,6 +13,8 @@ export(vic_params)
 export(vic_version)
 import(magrittr)
 importFrom(Rcpp,sourceCpp)
+importFrom(foreach,"%do%")
+importFrom(foreach,foreach)
 importFrom(lubridate,day)
 importFrom(lubridate,month)
 importFrom(lubridate,year)

R/VIC5-package.R

@@ -4,6 +4,7 @@
 #' @docType package
 #' @importFrom Rcpp sourceCpp
 #' @importFrom stats setNames convolve median
+#' @importFrom foreach %do% foreach
 #' @importFrom utils str read.table
 #' @keywords internal
 "_PACKAGE"
@@ -13,3 +14,11 @@
 ## usethis namespace: start
 ## usethis namespace: end
 NULL
+
+.onLoad <- function (libname, pkgname){
+  if(getRversion() >= "2.15.1") {
+    utils::globalVariables(
+      c(".", "i", "frocing")
+    )
+  }
+}

R/tools.R

@@ -29,7 +29,7 @@ set_dimnames <- function(x, value) {
 
 check_matrix <- function(x) {
   if (is.vector(x)) {
-    lake %<>% t()
+    x %<>% t()
   } else if (!is.null(x)) {
     x %<>% as.matrix()
   }

R/vic_forcing.R

@@ -153,14 +153,14 @@ check_forcing <- function(forcing, soil = NULL) {
   ngrid = ncol(forcing[[1]])
   # Estimate forcing data that not supplied.
   if ("PRESS" %in% forc_lack) {
-    forcing$PRESS = foreach(i = 1:ngrid, icount(), .c = cbind) %do% {
+    forcing$PRESS = foreach(i = 1:ngrid, .c = cbind) %do% {
       cal_Pa(frocing$TEMP[, i], elev = soil[, "ELEV"])
     }
   }
 
   if ("LW" %in% forc_lack) {
     J <- get_J()
-    forcing$LW = foreach(i = 1:ngrid, icount(), .c = cbind) %do% {
+    forcing$LW = foreach(i = 1:ngrid, .c = cbind) %do% {
       lat = soil[i, "LAT"]
       cal_lw(forcing$TEMP[, i], forcing$VP[, i], forcing$SW[, i], lat, J)
     }