data-raw/make_default_metadata.R

In Guillawme/rfret: Analyze FRET Binding Data

# Store default metadata for internal use.

library(magrittr)
library(rlang)
library(jsonlite)
library(devtools)

# Read default metadata from JSON file and populate this environment with
# the default key-value pairs (values are symbols).
metadata <- "./data-raw/default_metadata.json" %>%
    jsonlite::read_json() %>%
    rlang::syms()

# Build environment and store metadata in it.
.rfret <- rlang::new_environment()
assign(x = "metadata", value = metadata, envir = .rfret)

# Save environment in the internal data store.
devtools::use_data(internal = TRUE,
                   overwrite = TRUE,
                   .rfret)

# Clean up workspace.
remove(metadata, .rfret)