data-raw/org.r

In zielaskowski/tree-table: Display Tree Structured Data using Datatable Widget (DT)

library(magrittr)
library(readr)
library(data.tree)
library(tidyr)
library(dplyr)


## code to prepare `org` dataset
#import data
print("preparing example date...")
org <- read_csv(file="./data-raw/org.csv") %>%
  mutate(data=paste0(year,"-",month)) %>%
  select(-year,-month) %>%
  pivot_wider(names_from = data, values_from = value, values_fill = list(value=0))

col_order <- c("org",names(org[2:length(org)]))
col_order <- factor(col_order, levels = col_order)
org <- FromDataFrameTable(org,pathName = "org_path", pathDelimiter = "/")


usethis::use_data(org, col_order, overwrite = TRUE)