diff --git a/DESCRIPTION b/DESCRIPTION index 16c9b1d..c9c0b7b 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -8,9 +8,9 @@ Authors@R: c( person("RTE", role = "cph") ) Maintainer: Francois Guillem -Description: This package provides functions to add and modify small charts on - an interactive map created with package "leaflet". They can be used to - represent at same time multiple variables on a single map. +Description: Add and modify small charts on an interactive map created with + package 'leaflet'. These charts can be used to represent at same time multiple + variables on a single map. License: GPL (>= 2) | file LICENSE Depends: R (>= 2.10) Imports: leaflet, diff --git a/R/add_minicharts.R b/R/add_minicharts.R index 0039a94..e3b4c2d 100644 --- a/R/add_minicharts.R +++ b/R/add_minicharts.R @@ -32,8 +32,6 @@ #' @param showLabels Should values be displayed above chart elements. #' @param labelStyle Character string containing CSS properties to apply to the #' labels. -#' @param labelPrecision Integer indicating the number of signficant digits to -#' keep when displaying numerci values #' @param labelText character vector containing the text content of the charts. #' Used only if \code{data} contains only one column. #' @param transitionTime duration of the transitions when a property of a chart @@ -59,8 +57,7 @@ addMinicharts <- function(map, lng, lat, data = 1, maxValues = NULL, type = "auto", fillColor = NULL, colorPalette = NULL, width = 30, height = 30, opacity = 1, showLabels = FALSE, - labelStyle = NULL, - labelPrecision = 0, labelText = NULL, + labelStyle = NULL, labelText = NULL, transitionTime = 750, popup = NULL, layerId = NULL) { type <- match.arg(type, c("auto", "bar", "pie", "polar-area", "polar-radius")) @@ -99,7 +96,7 @@ addMinicharts <- function(map, lng, lat, data = 1, maxValues = NULL, type = "aut required = list(lng = lng, lat = lat), optional = list(type = type, width = width, height = height, opacity = opacity, labels = labels, - labelStyle = labelStyle, labelPrecision = labelPrecision, + labelStyle = labelStyle, transitionTime = transitionTime, popup = popup, layerId = layerId, fillColor = fillColor) ) @@ -124,8 +121,7 @@ addMinicharts <- function(map, lng, lat, data = 1, maxValues = NULL, type = "aut updateMinicharts <- function(map, layerId, data = NULL, maxValues = NULL, type = NULL, fillColor = NULL, colorPalette = NULL, width = NULL, height = NULL, opacity = NULL, showLabels = NULL, - labelStyle = NULL, - labelPrecision = NULL, labelText = NULL, + labelStyle = NULL, labelText = NULL, transitionTime = NULL, popup = NULL) { type <- match.arg(type, c("auto", "bar", "pie", "polar-area", "polar-radius")) @@ -164,7 +160,7 @@ updateMinicharts <- function(map, layerId, data = NULL, maxValues = NULL, type = required = list(layerId = layerId), optional = list(type = type, width = width, height = height, opacity = opacity, labels = labels, - labelStyle = labelStyle, labelPrecision = labelPrecision, + labelStyle = labelStyle, labelText = labelText, transitionTime = transitionTime, popup = popup, fillColor = fillColor) ) diff --git a/man/addMinicharts.Rd b/man/addMinicharts.Rd index 4acd99e..f74d4d3 100644 --- a/man/addMinicharts.Rd +++ b/man/addMinicharts.Rd @@ -7,15 +7,13 @@ \usage{ addMinicharts(map, lng, lat, data = 1, maxValues = NULL, type = "auto", fillColor = NULL, colorPalette = NULL, width = 30, height = 30, - opacity = 1, showLabels = FALSE, labelStyle = NULL, - labelPrecision = 0, labelText = NULL, transitionTime = 750, - popup = NULL, layerId = NULL) + opacity = 1, showLabels = FALSE, labelStyle = NULL, labelText = NULL, + transitionTime = 750, popup = NULL, layerId = NULL) updateMinicharts(map, layerId, data = NULL, maxValues = NULL, type = NULL, fillColor = NULL, colorPalette = NULL, width = NULL, height = NULL, opacity = NULL, showLabels = NULL, labelStyle = NULL, - labelPrecision = NULL, labelText = NULL, transitionTime = NULL, - popup = NULL) + labelText = NULL, transitionTime = NULL, popup = NULL) } \arguments{ \item{map}{A leaflet map object created with \code{\link[leaflet]{leaflet}}.} @@ -57,9 +55,6 @@ one column.} \item{labelStyle}{Character string containing CSS properties to apply to the labels.} -\item{labelPrecision}{Integer indicating the number of signficant digits to -keep when displaying numerci values} - \item{labelText}{character vector containing the text content of the charts. Used only if \code{data} contains only one column.}