require(csvwr)
#> Loading required package: csvwr
d <- iris[sample(150,10),]
s <- derive_table_schema(d)
m <- create_metadata(tables=s)
j <- jsonlite::toJSON(m)
cat(j, file="metadata.json")
write.csv(d, 'data.csv')
read_csvw_dataframe("data.csv", "metadata.json")
#> $error
#> <simpleError: `col_names` must be TRUE, FALSE or a character vector>
#>
#> $filename
#> [1] "data.csv"
#>
#> $dialect
#> list()
#>
#> $group_schema
#> list()