From 885c2af0c77a828b37f733894d41112dc3ac1707 Mon Sep 17 00:00:00 2001
From: Nicholas Potter <potterzot@gmail.com>
Date: Wed, 2 Dec 2015 09:32:32 -0800
Subject: [PATCH 1/3] remove broken link from gefs documentation.

---
 R/gefs.R | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/R/gefs.R b/R/gefs.R
index bf6323d7..e06e7edb 100644
--- 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 -
-#'  \url{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}

From 5215f4189c3bdb7ad74a3015f8797f473a96c653 Mon Sep 17 00:00:00 2001
From: Nicholas Potter <potterzot@gmail.com>
Date: Mon, 25 Jan 2016 10:12:35 -0800
Subject: [PATCH 2/3] Bug 127: Add stop if windows.

Re-enable when gefs grib2 files are working with ncdf4.
---
 R/gefs.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/R/gefs.R b/R/gefs.R
index e06e7edb..392010eb 100644
--- a/R/gefs.R
+++ b/R/gefs.R
@@ -81,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)
 

From 4686dc86560ea21ccac058257dd8dadaa9f0c68c Mon Sep 17 00:00:00 2001
From: Nicholas Potter <potterzot@gmail.com>
Date: Mon, 25 Jan 2016 10:30:08 -0800
Subject: [PATCH 3/3] add is_windows() to zzz.r

---
 R/zzz.r | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/R/zzz.r b/R/zzz.r
index 4ce013d0..57a84096 100644
--- 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"
+}