Snowball search by author(s)

[massimoaria]

@trangdata
Talking with Corrado Cuccurullo, we realized that it should be a good idea to add the possibility of performing a snowball search by an author, searching all his citing or cited documents.

[trangdata]

This is already possible with our current implementation of oa_snowball 😄 🌻

library(openalexR)
orcids <- c("0000-0003-3737-6565", "0000-0002-8517-9411")

# find publications by these two authors this year
# then search for the articles citing these publications from 2022-10-01 to 2022-12-31
# and articles that are cited by these publications and published after 2021-10-01
snowball_orcid <- oa_snowball(
  author.orcid = orcids,
  from_publication_date = "2022-01-01",
  to_publication_date = "2022-12-31",
  citing_filter = list(
    from_publication_date = "2022-10-01",
    to_publication_date = "2022-12-31"
  ),
  cited_by_filter = list(from_publication_date = "2021-10-01")
)
dplyr::glimpse(snowball_orcid$nodes)
#> Rows: 11
#> Columns: 29
#> $ id               <chr> "W4221118572", "W4206332042", "W4214840745", "W428063…
#> $ display_name     <chr> "Thematic Analysis as a New Culturomic Tool: The Soci…
#> $ author           <list> [<data.frame[5 x 10]>], [<data.frame[5 x 10]>], [<da…
#> $ ab               <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA
#> $ publication_date <chr> "2022-03-20", "2022-01-17", "2022-03-04", "2022-05-01…
#> $ relevance_score  <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA
#> $ so               <chr> "Sustainability", "Corporate Ownership and Control", …
#> $ so_id            <chr> "https://openalex.org/V10134376", "https://openalex.o…
#> $ publisher        <chr> "MDPI AG", "Virtus Interpress", "Emerald (MCB UP)", "…
#> $ issn             <list> "2071-1050", <"1727-9232", "1810-3057", "1810-0368">,…
#> $ url              <chr> "https://doi.org/10.3390/su14063643", "https://doi.or…
#> $ first_page       <chr> "3643", "314", "1157", NA, NA, "1", NA, "e31400", NA…
#> $ last_page        <chr> "3643", "326", "1178", NA, NA, "15", NA, "e31400", NA…
#> $ volume           <chr> "14", "19", "44", NA, NA, "2022", "21", "23", "11", "…
#> $ issue            <chr> "6", "1, special issue", "5", NA, NA, NA, "1", "10", …
#> $ is_oa            <lgl> TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, TR…
#> $ cited_by_count   <int> 2, 0, 0, 0, 0, 0, 10, 9, 6, 2, 1
#> $ counts_by_year   <list> [<data.frame[1 x 2]>], NA, NA, NA, NA, NA, [<data.fra…
#> $ publication_year <int> 2022, 2022, 2022, 2022, 2022, 2022, 2021, 2021, 2021,…
#> $ cited_by_api_url <chr> "https://api.openalex.org/works?filter=cites:W4221118…
#> $ ids              <list> [<tbl_df[2 x 2]>], [<tbl_df[2 x 2]>], [<tbl_df[2 x 2…
#> $ doi              <chr> "https://doi.org/10.3390/su14063643", "https://doi.or…
#> $ type             <chr> "journal-article", "journal-article", "journal-articl…
#> $ referenced_works <list> <"https://openalex.org/W1500693574", "https://openal…
#> $ related_works    <list> <"https://openalex.org/W2053912694", "https://openale…
#> $ is_paratext      <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, …
#> $ is_retracted     <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FAL…
#> $ concepts         <list> [<data.frame[30 x 5]>], [<data.frame[11 x 5]>], [<da…
#> $ oa_input         <lgl> TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FA…

^{Created on 2022-10-12 with reprex v2.0.2}

[massimoaria]

Sorry, my mistake

[trangdata]

Sorry, my mistake

No need at all! We still need to put together a vignette for snowball search, so these use cases are very good to know! Thank you for bringing it up.