diff --git a/DESCRIPTION b/DESCRIPTION index 04511ac..481b149 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -15,10 +15,8 @@ Imports: bsicons, dplyr, fontawesome, - glue, leaflet, magick, - magrittr, purrr, rsvg Suggests: diff --git a/NAMESPACE b/NAMESPACE index 97e153b..3716840 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -1,10 +1,9 @@ # Generated by roxygen2: do not edit by hand -export("%>%") export(addIconLegend) export(iconBin) export(iconFactor) export(iconQuantile) export(magicIcons) -importFrom(magrittr,"%>%") +importFrom(leaflet,"%>%") importFrom(rsvg,rsvg_png) diff --git a/R/leaf.magic-package.R b/R/leaf.magic-package.R index e5705ee..c4f3272 100644 --- a/R/leaf.magic-package.R +++ b/R/leaf.magic-package.R @@ -2,6 +2,7 @@ "_PACKAGE" ## usethis namespace: start +#' @importFrom leaflet %>% #' @importFrom rsvg rsvg_png ## usethis namespace: end NULL diff --git a/R/magicIcons.R b/R/magicIcons.R index 901c824..3b2045e 100644 --- a/R/magicIcons.R +++ b/R/magicIcons.R @@ -98,7 +98,7 @@ magicIcons <- function(icon = "circle", 3.5 marker <- - magick::image_composite(pin, logo, offset = glue::glue("+{h_adj}+{v_adj}")) + magick::image_composite(pin, logo, offset = paste0("+", h_adj, "+", v_adj)) shadow <- marker %>% magick::image_background("transparent") %>% diff --git a/R/utils-pipe.R b/R/utils-pipe.R deleted file mode 100644 index fd0b1d1..0000000 --- a/R/utils-pipe.R +++ /dev/null @@ -1,14 +0,0 @@ -#' Pipe operator -#' -#' See \code{magrittr::\link[magrittr:pipe]{\%>\%}} for details. -#' -#' @name %>% -#' @rdname pipe -#' @keywords internal -#' @export -#' @importFrom magrittr %>% -#' @usage lhs \%>\% rhs -#' @param lhs A value or the magrittr placeholder. -#' @param rhs A function call using the magrittr semantics. -#' @return The result of calling `rhs(lhs)`. -NULL diff --git a/man/pipe.Rd b/man/pipe.Rd deleted file mode 100644 index a648c29..0000000 --- a/man/pipe.Rd +++ /dev/null @@ -1,20 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/utils-pipe.R -\name{\%>\%} -\alias{\%>\%} -\title{Pipe operator} -\usage{ -lhs \%>\% rhs -} -\arguments{ -\item{lhs}{A value or the magrittr placeholder.} - -\item{rhs}{A function call using the magrittr semantics.} -} -\value{ -The result of calling \code{rhs(lhs)}. -} -\description{ -See \code{magrittr::\link[magrittr:pipe]{\%>\%}} for details. -} -\keyword{internal}