See also my Google Scholar Profile
Link to my publication list on the KULeuven website:
:
Open Data
: Open Code
: preregistered (sometimes partially)
or
: Preprint
version
: Work from the laboratory
: Collaboration within KU Leuven
: International collaboration
library(bib2df)
bib_df<-bib2df(file="MyPubBetterBibTex.bib")
library(stringi)
bib_df$TITLE<-stri_replace_all_regex(bib_df$TITLE, "[\\{\\}]", "")
bib_df$JOURNAL<-stri_replace_all_regex(bib_df$JOURNAL, "[\\{\\}]", "")
bib_df$TITLE<-stri_replace_all_regex(bib_df$TITLE,"â€\\“", "-")## replacing latex character by UTF character
# sort bib_df by year
bib_df<-bib_df[order(bib_df$YEAR, decreasing=T),]
dims<-dim(bib_df)
pg = c("https://github.com/jjodx/jjodx.github.io/raw/master/PubFile/")
Y0 <- bib_df[1,]$YEAR
cat(c("##",Y0 ))
for(i in 1:dims[1]){
if (bib_df[i,]$YEAR!=Y0){Y0<-bib_df[i,]$YEAR;cat(c("##",Y0));cat(c("\n"))}
Aut = bib_df[i,]$AUTHOR[[1]];
for (j in 1:length(Aut)){
Auteurs <- Aut[j]
## replacing latex character by UTF character
# Auteurs<-stri_replace_all_regex(Auteurs,"\\{\\\\\`\\{e\\}\\}", "è")
Auteurs<-stri_replace_all_regex(Auteurs,"\\\\\`e", "è")
Auteurs<-stri_replace_all_regex(Auteurs,"\\{\\\\\'\\{e\\}\\}", "é")
Auteurs<-stri_replace_all_regex(Auteurs,"\\\\\'e", "é")
Auteurs<-stri_replace_all_regex(Auteurs,"\\{\\\\\"\\{u\\}\\}", "ü")
Auteurs<-stri_replace_all_regex(Auteurs,"\\\\\"u", "ü")
Auteurs<-stri_replace_all_regex(Auteurs,"\\{\\\\\\^\\{i\\}\\}", "î")
Auteurs<-stri_replace_all_regex(Auteurs,"\\\\\\^i", "î")
Auteurs<-stri_replace_all_regex(Auteurs,"Orban de Xivry\\}, Jean-Jacques", "\\_\\_Orban de Xivry, Jean-Jacques\\_\\_")## set name of owner in bold
Auteurs<-stri_replace_all_regex(Auteurs, "[\\{\\}]", "")
Aut[j]<-Auteurs
}
b<-bib_df[i,]$DOI
b<-gsub("\\.", "_", b)
b<-gsub("/", "-", b)
b <- paste0(b,".pdf",collapse="")
a<-bib_df$FILE[i]
split_a<-unlist(strsplit(a,":"))
file_path<-paste0(pg,b,collapse="")
if (i%%2){cat(c("\n",paste("<div class = 'blue'> "),"\n"))}
if (i%%2==0){cat(c("\n",paste("<div class = 'white'> "),"\n"))}
cat(c("####",bib_df[i,]$TITLE)) #title
if (is.na(bib_df[i,]$VOLUME)){bib_df[i,]$VOLUME=""}
if (is.na(bib_df[i,]$PAGES)){bib_df[i,]$PAGES=""}
cat(c("\n"))
cat(c(cat(Aut,sep=", "), " (",
bib_df[i,]$YEAR, "). [",
bib_df[i,]$TITLE, "](http://dx.doi.org/",
bib_df[i,]$DOI,
"). *",
bib_df[i,]$JOURNAL, ", ",
bib_df[i,]$VOLUME, "*, ",
bib_df[i,]$PAGES, ".",
"DOI: ",
bib_df[i,]$DOI), sep="")
if(is.na(a)==FALSE){
cat(c(" ", " [pdf](",file_path,")"), sep="")
}
get_data <- bib_df[i,]$NOTE
if(is.na(get_data)==FALSE){
get_data <- stri_replace_all_regex(get_data,"laboratory", paste(fa('location-dot', fill = '#db271a', height='2em', width='1.5em'),'work from the labotatory'))## work from the lab icon
get_data <- stri_replace_all_regex(get_data,"Laboratory", paste(fa('location-dot', fill = '#db271a', height='2em', width='1.5em'),'work from the labotatory'))## work from the lab icon
get_data <- stri_replace_all_regex(get_data,"KULeuven", paste(fa('building-columns', fill = '#52BDEC', height='2em', width='2em'),'work with colleagues from KU Leuven'))## Collaborative work icon
get_data <- stri_replace_all_regex(get_data,"International", paste(fa('globe', fill = '#228B22', height='2em', width='2em'),'work with Belgian/international colleagues'))## Collaborative work icon
get_data <- stri_replace_all_regex(get_data,"international", paste(fa('globe', fill = '#228B22', height='2em', width='2em'),'work with Belgian/international colleagues'))## Collaborative work icon
get_data <- stri_replace_all_regex(get_data,"data", paste(fa('square-poll-vertical', fill = '#0f6cd6', height='2em', width='2em'),'data'))## open data icon
get_data <- stri_replace_all_regex(get_data,"preregistration", paste(fa("square-check", fill = "#db271a", height="2em", width="2em", prefer_type="solid"),'preregistration'))## prereg icon
get_data <- stri_replace_all_regex(get_data,"preprint", "<i style='color: #211f1f;' class='ai ai-biorxiv ai-2x' ></i> Preprint")## bioRxiv icon
get_data <- stri_replace_all_regex(get_data,"psyarxiv", "<i style='color: #211f1f;' class='ai ai-psyarxiv ai-2x' ></i> Preprint")## psyarXiv icon
get_data <- stri_replace_all_regex(get_data,"code", paste(fa('github', fill = '#211f1f', height='2em', width='2em'),'code'))## open code icon
cat(c(" <br> ", get_data), sep="")
}
cat(c("\n",paste("</div>"),"\n"))
cat(c("\n"))
cat(c("\n"))
}