fixed #789

R/misc_stars.R

@@ -127,20 +127,17 @@ get_xy_dim = function(x) {
 transwarp = function(x, crs, raster.warp) {
 	# NOTE: dropped colors after st_warp fixed in stars 0.4-2
 	shpcolors = attr(x[[1]], "colors")
-	if (raster.warp) {
-		y = tryCatch({
-			stars::st_warp(x, crs = crs)
-		}, error = function(e) {
-			# tm_shape does not have a raster.warp argument.
-			stop("Unable to warp stars. You could try with raster.warp = FALSE (argument of tm_shape)", call. = FALSE)	
-		})
-	} else {
-		y = tryCatch({
+
+	y = tryCatch({
+		stars::st_warp(x, crs = crs)
+	}, error = function(e) {
+		warning("Unable to warp stars. Stars will be transformed now (which will take some time).", call. = FALSE)	
+		tryCatch({
 			sf::st_transform(x, crs = crs)
 		}, error = function(e) {
-			stop("Unable to transform stars", call. = FALSE)	
+			stop("Also unable to transform stars", call. = FALSE)	
 		})
-	}
+	})
 	if (!is.null(shpcolors)) attr(y[[1]], "colors") = shpcolors
 	y
 }

R/step1_rearrange.R

@@ -127,7 +127,7 @@ step1_rearrange = function(tmel) {
 	}
 
 	# crs in options refers to which crs is used in the plot, not necessarily in the transformation (step 3) 
-	crs_option = o$crs
+	crs_option = sf::st_crs(o$crs)
 
 	# get main crs (used in step 3, not necessarily in the plot (e.g. view mode will use 4326/3857))
 	crs_main = if (any_data_layer) get_crs(tms) else NA

R/step3_trans.R

@@ -32,7 +32,7 @@ step3_trans = function(tm) {
 
 		crs_reproject_shpTM = function(s, crs) {
 			# crs can be a list per class (due to leaflet EPSG:3857 requirement for raster images)
-			crs2 = get_option_class(crs, class = class(s$shp))
+			crs2 = sf::st_crs(get_option_class(crs, class = class(s$shp)))
 			if (sf::st_crs(s$shp) != crs2) {
 				s = do.call(tmapReproject, c(s, list(crs = crs2)))
 			}