In elfatherbrown/dsmanager: Dataset Management for the OAS Atlas Project.

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval=FALSE
)

library(dsmanage)
library(pins)
library(tidyverse)

b <- pins::board_folder(get_golem_config('pin_boards')$oasw,versioned = TRUE)
wid_dd <- pins::pin_read(b,'wider_companion_w_datadict')
widc <- pins::pin_read(b,'wider_companion_w')
wid_dd <- wid_dd %>% 
    mutate(idx=row_number(),
           across(where(is.character),as.character),
           original_category=str_remove_all(suggested_variable_category,
                                                     "^[^\\.]+\\."),
           variable_description=original_variable_description,
           variable_type=""
           ) %>% 
    rename(
        suggested_variable_categories=suggested_variable_category
    ) 
ddict <- DataDictionary$new(
    dataset_code = 'wide_companion_w',
    datadict = wid_dd
)

ddict$document_data(widc)

elfatherbrown/dsmanager documentation built on Dec. 20, 2021, 4:16 a.m.