R/group2series.R

In JohnCoene/echarts: EChart htmlwidget

# group2series
map_grps_ <- function(data){

  row.names(data) <- NULL

  if(dplyr::is.grouped_df(data)){

    # deparse groups to get grp column
    g.col <- dplyr::groups(data)
    g.col <- unlist(lapply(g.col, deparse))

    data <- dplyr::ungroup(data)
    data <- apply(data, 2, na2ec)
    data <- as.data.frame(data)
    row.names(data) <- NULL

    grps <- unique(data[,g.col]) # get unique grps

    # fun to filter grps
    filter_grp <- function(grps){
      data[data[, g.col] == grps,]
    }

    data <- Map(filter_grp, grps)
    names(data) <- grps

  } else {
    row.names(data) <- NULL
    data <- na2ec(data)
    data <- list(as.data.frame(data))
  }

  return(data)

}