Robot
/
apexcharter
mirror of https://github.com/dreamRs/apexcharter.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

apex(): set stroke width to 2 and convert NA to strings

This commit is contained in:
pvictor 2020-03-03 19:34:33 +01:00
parent c8c23aa43b
commit 1d5478b1a2
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
R/apex.R
View File

@ -81,7 +81,9 @@ make_series <- function(mapdata, mapping, type = NULL, serie_name = NULL) {
mapdata$group <- serie_name %||% rlang::as_label(mapping$x)
series <- parse_timeline_data(mapdata)
} else {
mapdata <- as.data.frame(mapdata)
mapdata <- as.data.frame(mapdata, stringsAsFactors = FALSE)
if (is.character(mapdata$x))
mapdata$x[is.na(mapdata$x)] <- "NA"
x_order <- unique(mapdata$x)
if (is_x_datetime(mapdata)) {
add_names <- FALSE
@ -98,7 +100,7 @@ make_series <- function(mapdata, mapping, type = NULL, serie_name = NULL) {
mapdata <- rename_aes(mapdata)
len_grp <- tapply(mapdata$group, mapdata$group, length)
if (length(unique(len_grp)) > 1) {
warning("apex: all groups must have same length! Use can use `tidyr::complete` for this.")
warning("apex: all groups must have same length! You can use `tidyr::complete` for this.")
}
series <- lapply(
X = unique(mapdata$group),
@ -237,7 +239,8 @@ config_line <- function(curve = "straight", datetime = FALSE) {
config <- list(
dataLabels = list(enabled = FALSE),
stroke = list(
curve = curve
curve = curve,
width = 2
)
)
if (isTRUE(datetime)) {