Fixed bug on COMPRESS widget

COMPRESS option is now re-set correctly when loading the previous_options file in the GUI or loading a JSON file.
ropensci · Aug 9, 2017 · 633c2dd · 633c2dd
1 parent 8beb9f0
commit 633c2dd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/MODIStsp_GUI.R b/R/MODIStsp_GUI.R
@@ -847,7 +847,7 @@ MODIStsp_GUI <- function(general_opts, prod_opt_list, scrollWindow, MODIStsp_dir
   size(compress_lab) <- list(width = 130)
   font(compress_lab) <- list(family = "sans", weight = "bold")
   compress_wid <- gcombobox(names(compress_dict), container = compress_group,
-                            selected <- match(general_opts$compress, names(compress_dict)))
+                            selected <- match(general_opts$compress, compress_dict))
   if (general_opts$out_format == "GTiff") {
     enabled(compress_group) <- TRUE
   } else {