data-raw/old/add_pos_2data.R

In neuroconductor-devel/ggseg3d: Plotting tool for brain atlases

library(tidyverse)

# DKT ----
dkt <- dkt %>%
  unnest(ggseg) %>%
  select(-.pos)
 # mutate(.pos = list(x = 1))

# for(i in 1:nrow(dkt)){
#   dkt$.pos[[i]] = list(
#     stacked = list(x = list(breaks = c(2.5, 9.2),
#                             labels = c("lateral","medial")),
#                    y = list(breaks = c(2.5, 7.5),
#                             labels = c("left","right")),
#                    labs = list(x = "side",
#                                y = "hemisphere")),
#     dispersed = list(x = list(breaks = c(6.2, 19),
#                               labels = c("left","right")),
#                      y = list(breaks = NULL,
#                               labels = NULL),
#                      labs = list(x = "hemisphere",
#                                  y = NULL))
#   )
# }
dkt <- as_ggseg_atlas(dkt)
usethis::use_data(dkt, internal = FALSE, overwrite = TRUE)


# aseg ----
aseg <- aseg %>%
  unnest(ggseg) %>%
  mutate(.pos = list(x = 1))

for(i in 1:nrow(aseg)){
  aseg$.pos[[i]] = list(
    dispersed = list(x = list(breaks = c(9.2, 11.4),
                              labels = c("left","right")),
                     y = list(breaks = NULL,
                              labels = NULL),
                     labs = list(x = "hemisphere",
                                 y = NULL))
  )
}
aseg <- as_ggseg_atlas(aseg)
usethis::use_data(aseg, internal = FALSE, overwrite = TRUE)