Update leaflet.R

To avoid the following warning message:

In if (is.na(base.map)) stop("Invalid base.map") :
  the condition has length > 1 and only the first element will be used