library(TwoSampleMR)

# exposure$SNP is the SNP column corresponding to the public data

outcome <- extract_outcome_data(
snps = exposure$SNP, 
outcomes = "", 
proxies = FALSE,
maf_threshold = 0.01,
access_token = NULL
)