library(scholar)
library(stringr)
library(purrr)
a1= paste("
           Blumenstiel, Justin	_lYsjjZirFwC
           Beard, K. Christopher	-8BpP20AAAAJ
           Lieberman, Bruce S.	-PQhyBIAAAAJ
           Soberón, Jorge	2lpCLIYAAAAJ
           Holder, Mark T.	3UyNayMAAAAJ
           Billings, Sharon	9epVuSQAAAAJ
           Brown, Rafe M.	9UtdkBgAAAAJ
           Gleason, Jennifer	9W-8oXUAAAAJ
           Short, Andrew E. Z.	aQJvzw8AAAAJ
           Reuman, Daniel	dyBEUd4AAAAJ
           Wagner, Maggie R.	eEb1jN4AAAAJ
           Foster, Bryan L.	ErrRNzMAAAAJ
           Thorp, James H.	FPpZDF0AAAAJ
           Moyle, Robert G.	GGhmX6QAAAAJ
           Cartwright, Paulyn	iRIXrf4AAAAJ
           Matsunaga, Kelly	itAB5aUAAAAJ
           Ward, Joy K.	J9KP4dsAAAAJ
           Haufler, Christopher H.	jh3Z4esAAAAJ
           Engel, Michael S.	kgck7ecAAAAJ
           Hileman, Lena	L_KD93oAAAAJ
           Kelly, John	lCejDg8AAAAJ
           Burgin, Amy	mesiHAsAAAAJ
           Bever, James	mwtIqCEAAAAJ
           Agusto, Fola B.	ewUcT4AAAAAJ
           Alexander, Helen Miller	QsjZZH8AAAAJ
           De Boer, Gerrit	OfFrwdUAAAAJ
           Glor, Richard	DFRUpsgAAAAJ
           Jensen, Kirsten	NC4jEw0AAAAJ
           Sikes, Benjamin	oEy88sEAAAAJ
           Walters, James R.	pM6S00EAAAAJ
           Orive, Maria E.	PwmWLCcAAAAJ
           Krishtalka, Leonard	qnjbiAUAAAAJ
           Smith, Wm. Leo	twVHi_EAAAAJ
           Peterson, A. Townsend	uRZIRj0AAAAJ",collapse="\n")
b1 <- str_split(a1,pattern = "[\n]",simplify = T)
b2 <-str_split(b1,"\t",simplify = T)
b3 <- 2:length(b2[,2]) %>% map_df(~data.frame(researcher=b2[.x,1],scholar::get_publications(b2[.x,2])))
n1 <- str_split(b3$researcher,"           ",simplify = T)
b3$researcher <- n1[,2]
AuthorDF <- b3 %>% split(.$researcher)
js <- unique(b3$journal) 

df_j <- data.frame(Journal=js)
df_a <-sapply(1:length(AuthorDF), function(x) {
  js  %in% AuthorDF[[x]]$journal*1
  })
colnames(df_a)  <- names(AuthorDF)
df_n <- data.frame(df_j,df_a)

write.csv(df_n,"KUEEB_pubs_per_journal_All_good.csv",row.names = F)