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

parse date in js

This commit is contained in:
pvictor 2020-02-14 17:25:52 +01:00
parent 7450f3eb52
commit b0f4b1d588
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
R/parse-data.R
View File

@ -32,7 +32,8 @@ parse_df <- function(data, add_names = FALSE) {
FUN = function(x) {
if (inherits(x, "Date")) {
# as.numeric(x) * 86400000
format(x)
# format(x)
js_date(x)
} else if (inherits(x, "POSIXt")) {
as.numeric(x) * 1000
} else if (inherits(x, "factor")) {
@ -67,7 +68,7 @@ parse_df <- function(data, add_names = FALSE) {
#' @importFrom htmlwidgets JS
js_date <- function(x) {
JS(sprintf("new Date('%s').getTime()", x))
lapply(sprintf("new Date('%s').getTime()", x), JS)
}
parse_timeline_data <- function(.list) {
@ -78,10 +79,7 @@ parse_timeline_data <- function(.list) {
val <- lapply(.list, `[[`, i)
l <- list(
x = val$x,
y = list(
js_date(val$start),
js_date(val$end)
)
y = js_date(c(val$start, val$end))
)
if (!is.null(val$fill)) {
l$fillColor <- val$fill