The most efficient way to retrieve association results by study_id? about gwasrapidd HOT 2 CLOSED

library(gwasrapidd)
  
study_id <- "GCST004132"
associations <- get_associations(study_id = study_id)
variants <- get_variants(study_id = study_id)

# Because there are more than on gene associated with a locus
genes <- associations@genes %>%
  dplyr::group_by(association_id, locus_id) %>%
  dplyr::summarise(gene_name = paste(gene_name, collapse = ' '), .groups = 'drop')

association_results <-
  associations@associations %>%
  dplyr::select(association_id, pvalue, beta_number, or_per_copy_number) %>%
  dplyr::left_join(associations@risk_alleles, by = 'association_id') %>%
  dplyr::left_join(genes, by = c('association_id', 'locus_id')) %>%
  dplyr::left_join(variants@variants, by = c('variant_id')) %>%
  dplyr::transmute(
    study_id = study_id,
    association_id = association_id,
    ID = variant_id,
    CHROM = chromosome_name,
    POS = chromosome_position,
    risk_allele = risk_allele,
    gene_name = gene_name,
    P = pvalue,
    beta = beta_number,
    OR = or_per_copy_number
  )

association_results
#> # A tibble: 119 × 10
#>    study_id  association_id ID    CHROM    POS risk_allele gene_name     P  beta
#>    <chr>     <chr>          <chr> <chr>  <int> <chr>       <chr>     <dbl> <dbl>
#>  1 GCST0041… 19144286       rs34… 1     1.60e8 G           SLAMF8    1e- 6    NA
#>  2 GCST0041… 19144332       rs25… 3     5.31e7 C           intergen… 6e- 9    NA
#>  3 GCST0041… 19144360       rs56… 3     1.89e8 C           LPP       6e-10    NA
#>  4 GCST0041… 19144385       rs80… 13    4.23e7 C           AKAP11    4e- 8    NA
#>  5 GCST0041… 19144411       rs48… 22    3.69e7 C           NCF4      2e- 8    NA
#>  6 GCST0041… 19144456       rs10… 16    8.28e7 A           CDH13     1e- 9    NA
#>  7 GCST0041… 19713859       rs14… 7     5.03e7 <NA>        C7orf72 … 9e-12    NA
#>  8 GCST0041… 19713864       rs12… 17    4.24e7 <NA>        NAGLU ST… 2e-11    NA
#>  9 GCST0041… 19713869       rs51… 19    4.87e7 <NA>        IZUMO1 N… 4e-11    NA
#> 10 GCST0041… 19713874       rs10… 2     4.36e7 <NA>        THADA ZF… 4e-11    NA
#> # … with 109 more rows, and 1 more variable: OR <dbl>