fixed new bug in #872 example

R/messages_v4_v3.R

@@ -25,6 +25,10 @@ v3_title = function(fun) {
 	message("[v3->v4] ", fun, "(): use 'tm_title()' instead of the 'title' argument of '", fun, "'")	
 }
 
+v3_main_title = function(fun) {
+	message("[v3->v4] ", fun, "(): use 'tm_title()' instead of the 'main.title' argument of '", fun, "'")	
+}
+
 v3_convert2density = function(layer_fun) {
 	message(paste0("[v3->v4] ", layer_fun, "(): convert2density is deprecated: divide the variable values by the polygon areas manually (obtain the areas with 'sf::st_area()')"))
 }

R/tm_layout.R

@@ -117,8 +117,11 @@ tm_layout = function(
 		title2 = if (!is.null(main.title)) {
 			main.title.args = args[substr(names(args), 1, 10) == "main.title"]
 			main.title.args$main.title = NULL
+			if ("main.title.position" %in% names(main.title.args)) {
+				main.title.args$main.title.position = tm_pos_out(main.title.args$main.title.position, "top")
+			}
 			names(main.title.args) = substr(names(main.title.args), 12, nchar(names(main.title.args)))
-			warning("The 'main.title' argument of 'tm_layout()' is deprecated as of tmap 4.0. Please use 'tm_title()' instead.", call. = FALSE)
+			v3_main_title(fun)
 			args$main.title = NULL
 			do.call(tm_title, c(list(text = main.title), main.title.args))
 		} else {