increase width cutoff for layer name for list methos, #477

Author: Tim Appelhans

R/mapView.R

@@ -1326,8 +1326,13 @@ setMethod('mapView', signature(x = 'list'),
                    map.types = mapviewGetOption("basemaps"),
                    verbose = mapviewGetOption("verbose"),
                    popup = TRUE,
-                   layer.name = deparse(substitute(x,
-                                                   env = parent.frame())),
+                   layer.name = deparse(
+                     substitute(
+                       x
+                       , env = parent.frame()
+                     )
+                   , width.cutoff = 500L
+                   ),
                    label = lapply(x, makeLabels),
                    legend = mapviewGetOption("legend"),
                    homebutton = mapviewGetOption("homebutton"),