# Download public bibliographic data into R without an account or extra packages.
options(HTTPUserAgent = "PsilocybinResearchClient/1.0")
compound <- "psilocybin" # Change to "psilocin" for the other indexed compound.
papers <- read.csv(
  paste0("https://psilocybin-research.com/api/v1/papers?format=csv&limit=50000&compound=", compound),
  fileEncoding = "UTF-8", check.names = FALSE,
  colClasses = "character", na.strings = ""
)
message(nrow(papers), " records imported. Identifier and date fields remain strings.")
# Save a dated copy before analysis, and cite the dataset and original sources.

# Records are not independent studies; keep registrations and preprints separate.
print(table(papers$publication_status, useNA = "ifany"))
# DOI/PMID strings remain unmodified. This table is descriptive, not an effect estimate.