removeMouseCoordinates = function(map) {
if (inherits(map, "mapview")) leaf = map@map
rc = leaf$jsHooks$render
rc_lnlt = grepl("lnlt", rc) #lapply(rc, grepl, pattern = "lnlt")
leaf$jsHooks$render = leaf$jsHooks$render[!rc_lnlt]
map@map <- leaf
return(map)
}