ft_abstract returns 10 abstracts for each DOI

[mrweiler]

Session Info

sessionInfo()
R version 3.5.3 (2019-03-11)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Arch Linux

Matrix products: default
BLAS: /usr/lib/libblas.so.3.8.0
LAPACK: /usr/lib/liblapack.so.3.8.0

locale:
 [1] LC_CTYPE=de_DE.UTF-8       LC_NUMERIC=C               LC_TIME=de_DE.UTF-8       
 [4] LC_COLLATE=de_DE.UTF-8     LC_MONETARY=de_DE.UTF-8    LC_MESSAGES=de_DE.UTF-8   
 [7] LC_PAPER=de_DE.UTF-8       LC_NAME=C                  LC_ADDRESS=C              
[10] LC_TELEPHONE=C             LC_MEASUREMENT=de_DE.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] fulltext_1.2.0

loaded via a namespace (and not attached):
 [1] storr_1.2.1      tidyselect_0.2.5 purrr_0.3.1      reshape2_1.4.3   colorspace_1.4-0
 [6] miniUI_0.1.1.1   htmltools_0.3.6  yaml_2.2.0       aRxiv_0.5.16     XML_3.98-1.19   
[11] rlang_0.3.1      later_0.8.0      pillar_1.3.1     httpcode_0.2.0   glue_1.3.0      
[16] rappdirs_0.3.1   solrium_1.0.2    rentrez_1.2.1    plyr_1.8.4       stringr_1.4.0   
[21] munsell_0.5.0    microdemic_0.4.0 gtable_0.2.0     htmlwidgets_1.3  httpuv_1.4.5.1  
[26] curl_3.3         hoardr_0.5.2     triebeard_0.3.0  urltools_1.7.2   rplos_0.8.4     
[31] Rcpp_1.0.0       xtable_1.8-3     promises_1.0.1   scales_1.0.0     DT_0.5          
[36] jsonlite_1.6     rcrossref_0.9.0  mime_0.6         ggplot2_3.1.0    digest_0.6.18   
[41] stringi_1.3.1    dplyr_0.8.0.1    shiny_1.2.0      grid_3.5.3       bibtex_0.4.2    
[46] tools_3.5.3      magrittr_1.5     lazyeval_0.2.1   tibble_2.0.1     crul_0.7.0      
[51] crayon_1.3.4     whisker_0.3-2    pkgconfig_2.0.2  xml2_1.2.0       lubridate_1.7.4 
[56] assertthat_0.2.0 rstudioapi_0.9.0 R6_2.4.0         compiler_3.5.3 

Expected behavior: ft_abstract returns 1 abstract for each DOI.
Actual behavior: ft_abstract returns 10 abstracts for each DOI.

Code to reproduce error:

library(fulltext)

(res <- ft_search(query = 'biology', from = 'plos', limit = 1, 
                  plosopts = list(fq = list('doc_type:full', '-article_type:correction',
                                            '-article_type:viewpoints'))))
dois <- res$plos$data$id
(out <- ft_abstract(x = dois, from = "plos"))
out$plos
length(out$plos[[1]]$doi)
length(out$plos[[1]]$abstract)

[sckott]

thanks for the report!

[sckott]

@mrweiler reinstall remotes::install_github("ropensci/fulltext"), reload R session, and try again, should work now

[mrweiler]

it works! thanks a lot!