Greasy Fork is available in English.

Pubmed Friend

IF show and filter for pubmed.

Автор
reyear
Установок в день
0
Всего установок
289
Оценки
0 1 0
Версия
2024.01.16
Создан
23.12.2021
Обновлён
16.01.2024
Лицензия
AGPL-3.0
Работает на

今天需要查查文献，顺便更新下影响因子

# Bash
curl -o EasyPubMedicine_0.1.20.zip -x i.adigger.cn:1082 https://raw.githubusercontent.com/naivenaive/EasyPubMed/master/EasyPubMedicine_0.1.20.zip
unzip EasyPubMedicine_0.1.20.zip


# Rscript
pubmed_name <- jsonlite::fromJSON('dist/data/pubmed_abb_data.json')
jcr_if <- jsonlite::fromJSON('dist/data/jcr_cas_ifqb.json')

library(dplyr)
xx = inner_join(
pubmed_name %>% select(c('abb', 'pubmed_issn')) %>% unique %>% filter('pubmed_issn' != ''),
jcr_if %>% select(c('issn', 'IF')) %>% unique %>% filter('issn' != ''),
by=c('pubmed_issn'='issn'),
relationship = "many-to-many"
) %>% select('abb', 'IF') %>% unique() %>% filter(IF!='N/A', !is.na(IF)) %>% mutate(IF=ifelse(IF=='<0.1', '0', IF)) %>% mutate(IF=as.numeric(IF))

yy = inner_join(
pubmed_name %>% select(c('abb', 'pubmed_eissn')) %>% unique %>% filter('pubmed_eissn' != ''),
jcr_if %>% select(c('eissn', 'IF')) %>% unique %>% filter('eissn' != ''),
by=c('pubmed_eissn'='eissn'),
relationship = "many-to-many"
) %>% select('abb', 'IF') %>% unique() %>% filter(IF!='N/A', !is.na(IF)) %>% mutate(IF=ifelse(IF=='<0.1', '0', IF)) %>% mutate(IF=as.numeric(IF))

xx = rbind(xx,yy) %>% unique()
xx = arrange(xx, -xx$IF)
xx = xx[!duplicated(xx$abb), ]
xx = xx %>% rename(c('name'='abb'))
jsonlite::toJSON(xx)

# get JsonStr for script