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

## ----setup--------------------------------------------------------------------
library(krt)

## -----------------------------------------------------------------------------
krt_profiles()

## -----------------------------------------------------------------------------
project_profile(krt_example, "asap")[, c("RESOURCE TYPE", "IDENTIFIER", "NEW/REUSE")]

## -----------------------------------------------------------------------------
mapping_lossy_fields(krt_example, "asap")

## -----------------------------------------------------------------------------
krt_profile_info("asap")
krt_audit_licenses()[, c("component", "license", "redistributable")]

## -----------------------------------------------------------------------------
cat(substr(krt_attribution("asap"), 1, 200))

## -----------------------------------------------------------------------------
f <- tempfile(fileext = ".csv")
export_asap(krt_example, f)
k <- import_krt(f)
identical(length(k$resources), length(krt_example$resources))