Merge pull request #1535 from GenericMappingTools/fix-nested-clip

Fix a situation when using a nested psclip raised by the change to -R

Author: joa-quim

src/common_options.jl

@@ -2784,7 +2784,8 @@ function add_opt_module(d::Dict)::Vector{String}
 					is_coast = false
 				end
 				r = r[1:findfirst(" -K", r)[1]];	# Remove the "-K -O >> ..."
-				r = replace(r, " -R -J" => "")
+				opt_R = scan_opt(r, "-R", true)
+				r = replace(r, opt_R * " -J" => "")	# Mus fish -R first because now all -R are complete (not just -R)
 				r = (is_coast) ? "clip " * r : "clip " * strtok(r)[2]	# coast case returns a "clip pscoast ..." string that caller can parse 
 			else
 				!(symb in CTRL.callable) && error("Nested Fun call $symb not in the callable nested functions list")

src/pscoast.jl

@@ -416,6 +416,6 @@ function earthregions(name::String=""; proj="guess", grid::Bool=false, dataset="
 			isempty(D2) && (gmtwhich(fname, G=:a); D2 = gmtwhich(fname, V=:q))	# If not, download it
 			return grdcut(D2.text[1]::String, R=lim)::GMTimage			# This grdcut call will lower to use gdaltranslate
 		end 
-		gmt("grdcut @"*dataset * res * regist * opt_J * " -R" * lim)::GMTgrid
+		gmt("grdcut @"*dataset * res * regist * opt_J * " -R" * lim * " -Vq")::GMTgrid
 	end
 end