Merge pull request #133 from potterzot/master

Add stop if windows until ncdf4 and grib2 issues in bug #127 are resolved.
ropensci · Jan 25, 2016 · 5aef15b · 5aef15b
2 parents 5b361df + 4686dc8
commit 5aef15b
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 3 deletions.
diff --git a/R/gefs.R b/R/gefs.R
@@ -27,9 +27,8 @@
 #'   values. If lat/lon are not specified, the $data is an unprocessed matrix.
 #'
 #' @references \itemize{
-#'  \item Data description - \url{http://bit.ly/noaagefs}
-#'  \item Adapted from Python code written by Von P. Walden, Washington State University -
-#'  http://sila.cee.wsu.edu/forecasts/WeatherAndClimateDatafromNWS.html
+#'  \item Data description - \url{http://bit.ly/noaagefs}.
+#'  \item Adapted from Python code written by Von P. Walden, Washington State University.
 #' }
 #'
 #' @author Nicholas Potter \email{potterzot@@gmail.com}
@@ -82,6 +81,10 @@ gefs <- function(var, lat, lon, ...) {
 gefs_CONNECT <- function(date = format(Sys.time(), "%Y%m%d"),
                          forecast_time = c("0000", "0600", "1200", "1800")) {
 
+
+  # Until bug #127 is resolved
+  if (is_windows()) stop("gefs not implemented on windows yet", .call = FALSE)
+
   #forecast time
   forecast_time <- match.arg(forecast_time)
 

diff --git a/R/zzz.r b/R/zzz.r
@@ -158,3 +158,8 @@ check4pkg <- function(x) {
     invisible(TRUE)
   }
 }
+
+#Check operating system is windows
+is_windows <- function() {
+      .Platform$OS.type == "windows"
+}