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

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

## -----------------------------------------------------------------------------
k <- new_krt("Dopaminergic neuron study", study_type = "wet-lab")

k <- add_resource(k, "Antibody", "Rabbit Anti-TH",
                  vendor = "Millipore", catalog_number = "AB152",
                  rrid = "RRID:AB_390204", new_or_reuse = "reuse",
                  notes = "Dilution 1:500")

k <- add_resource(k, "Software/code", "Fiji", version = "2.14.0",
                  rrid = "RRID:SCR_002285", new_or_reuse = "reuse")

k <- add_resource(k, "Dataset", "Processed counts",
                  doi = "10.5281/zenodo.11111111", new_or_reuse = "new")
k

## -----------------------------------------------------------------------------
as.data.frame(k)[, c("resource_type", "display_name", "rrid", "doi")]

## -----------------------------------------------------------------------------
validate_krt(k, profile = "generic")

## -----------------------------------------------------------------------------
summary(validate_krt(k, profile = "asap"))

## -----------------------------------------------------------------------------
k <- normalize_ids(k)

# Lossless canonical formats
cat(substr(write_krt_json(k), 1, 120))

## -----------------------------------------------------------------------------
cat(suppressWarnings(export_krt(k, format = "asap")))

## -----------------------------------------------------------------------------
cat(render_krt(k, format = "md", profile = "star-methods"))

## -----------------------------------------------------------------------------
as.data.frame(krt_provenance(k))[, c("activity", "software")]