library(dataspice)
data_files <- list.files("C:/Users/USUARIO/Desktop/OBservData/Final_Data/",
pattern = "CropPol",
full.names = TRUE)
attributes_path <- file.path("data", "metadata", "attributes.csv")
#  this function can be applied over multiple files to populate the header names
data_files %>%
purrr::map(~ prep_attributes(.x, attributes_path),
attributes_path = attributes_path)
edit_attributes() #opens Shiny for editing
edit_access() #opens an editable version of access.csv
edit_creators() #opens an editable version of creators.csv
edit_biblio() #opens an editable version of biblio.csv
write_spice() # Creates a JSON-LD document from our metadata
build_site()
library(dataspice)
library(tidyverse)
edit_biblio() #opens an editable version of biblio.csv
edit_attributes() #opens Shiny for editing
write_spice() # Creates a JSON-LD document from our metadata
build_site()
edit_attributes() #opens Shiny for editing
write_spice() # Creates a JSON-LD document from our metadata
build_site()
data_files <- list.files("Final_Data/",
pattern = "CropPol",
full.names = TRUE)
library(dataspice)
library(tidyverse)
data_files <- list.files("Final_Data/",
pattern = "CropPol",
full.names = TRUE)
edit_biblio() #opens an editable version of biblio.csv
edit_access() #opens an editable version of access.csv
