Make R CMD Check happy!

Author: bhaskarvk

R/plugin-easybutton.R

@@ -58,7 +58,7 @@ easyButtonStateList <- function(...) {
 #' @param states the states
 #' @export
 easyButton <- function(
-  icon = htmltools::span(class='easy-button','•'),
+  icon = htmltools::span(class='easy-button','!'),
   title = "Easy Button",
   onClick = JS("function(btn, map){alert('That was easy!');}"),
   position = "topleft",
@@ -162,10 +162,10 @@ addEasyButton <- function(
 #'   addEasyButtonBar(easyButtonList(
 #'    easyButton(
 #'      icon = htmltools::span(class='star','&starf;'),
-#'      onClick = JS("function(btn, map){ alert("Button 1");}")),
+#'      onClick = JS("function(btn, map){ alert('Button 1');}")),
 #'    easyButton(
 #'      icon = htmltools::span(class='star','&target;'),
-#'      onClick = JS("function(btn, map){ alert("Button 2");}"))))
+#'      onClick = JS("function(btn, map){ alert('Button 2');}"))))
 #'
 #'
 #' @export

inst/examples/easyButton.R

@@ -1,7 +1,7 @@
 library(leaflet)
 
-#' Add two easy buttons
-#' first to set zoom level to 1
+#' Add two easy buttons.
+#' first to set zoom level to 1,
 #' second to find your self
 leaflet() %>% addTiles() %>%
   addEasyButton(easyButton(
@@ -11,7 +11,7 @@ leaflet() %>% addTiles() %>%
     icon='fa-crosshairs', title='Locate Me',
     onClick=JS("function(btn, map){ map.locate({setView: true});}")))
 
-
+#' <br/><br/>Toggle Button to freeze/unfreeze clustering at a zoom level.
 leaflet() %>% addTiles() %>%
   addMarkers(data=quakes,
              clusterOptions = markerClusterOptions(),
@@ -47,7 +47,7 @@ leaflet() %>% addTiles() %>%
     )
   ))
 
-#' Add two easy buttons in a bar
+#' <br/><br/>Add two easy buttons in a bar
 #' first to set zoom level to 1
 #' second to find your self
 leaflet() %>% addTiles() %>%