library(httr2)

# Read NVDA's file (one GET, no key), naming your own project
stock <- request("https://tickerinside.com/api/v1/sec/nvda.json") |>
  req_user_agent("MyProject/1.0 (+https://example.com)") |>
  req_perform() |>
  resp_body_json()

# How many funds hold it: in their issuers' own files, and in SEC filings
writeLines(paste("NVDA held_by", stock$held_by,
                 "(issuer files), held_by_sec_nport",
                 stock$held_by_sec_nport, "(SEC filings)"))

# holders is sorted, largest weight first: list(fund, weight %, file date)
for (h in stock$holders) writeLines(paste(h[[1]], h[[2]], h[[3]]))

# The line to print under any figure you quote
writeLines(stock$cite_as)