Fixes #133

Fixes bug leading to error if only "Aqua" download is selected.
ropensci · Jul 9, 2018 · df0e6ff · df0e6ff
1 parent 5ce694e
commit df0e6ff
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 9 deletions.
diff --git a/R/MODIStsp_GUI.R b/R/MODIStsp_GUI.R
@@ -1204,6 +1204,7 @@ MODIStsp_GUI <- function(general_opts,
     text      = "Start Processing",
     container = but_group,
     handler   = function(h, ...) {
+
       general_opts <- gui_save_options(general_opts,
                                        gui_env,
                                        opts_jsfile,

diff --git a/R/gui_helpers.R b/R/gui_helpers.R
@@ -546,16 +546,15 @@ gui_save_options <- function(general_opts,
       http <- http[[1]]
     } else {
       http <- http[general_opts$sensor][[1]]
-    }
-  }
-
-  if (general_opts$download_server == "http" & http["Aqua"] == "Not Available"
-      & general_opts$sensor == "Aqua") { #nolint
-    gWidgets::gmessage(
-      message = strwrap("The selected product/version is only available for the
+      if (general_opts$download_server == "http" & http == "Not Available"
+          & general_opts$sensor == "Aqua") { #nolint
+        gWidgets::gmessage(
+          message = strwrap("The selected product/version is only available for the
                         Terra sensor.\n\n Please switch sensor!", width = 300),
-      title   = "Warning")
-    gui_env$check_save_opts <- FALSE
+          title   = "Warning")
+        gui_env$check_save_opts <- FALSE
+      }
+    }
   }
 
   #   __________________________________________________________________________