df to dygraph?

df_to_dygraph.R

library(dygraphs)
library(magrittr)
df <- data.frame(
  hour = seq( as.POSIXct("2019-01-01"),  as.POSIXct("2019-01-02"), length.out = 48 ), 
  num = 1:48, 
  freq = rep(1:2, times = 24)
)

# Doesn't work 
df %>% 
  dygraph()

# Works but not very clean 
df %>% 
  xts::xts(order.by = .$hour, frequency = .$freq) %>%
  dygraph()

# Is there something like:
df %>% 
  to_dg(order_by = hour, frequency = frequency) %>% 
  dygraph()


# Quick coding : 
to_dg <- function(
  df, order_by,
  freq = NULL, 
  unique = TRUE,
  tzone = Sys.getenv("TZ"),
  ...
){
  
  order_by <- df[[deparse(substitute(order_by))]]
  
  if (!is.null(freq)) {
    freq <- df[[deparse(substitute(freq))]]
  }
  
  xts::xts(
    x = df, 
    order.by = order_by,
    frequency = freq, 
    unique = unique, 
    tzone = tzone, 
    ...
    )
}

df %>% 
  to_dg(order_by = hour, freq = frequency) %>% 
  dygraph()

rstudio/dygraphs#17