Commit 52c4ec73 authored by khalid's avatar khalid
Browse files

Little change in DAFNEE distrib.

parent e9aea7ec
......@@ -119,9 +119,7 @@ parse_multiple_papers <- function(papers, nom, prenom){
getPubmedPapiers<- function(nom, prenom, maxPapers = 30, fic)
{
s <- paste0(nom, ' ', prenom,'[AUTH]')
print(s)
pubmedSearch <- entrez_search("pubmed", term = s, retmax = maxPapers)
print(length(pubmedSearch$ids))
pubmed_data = setNames(data.frame(matrix(ncol = 6, nrow = 0)), c('title' ,'year' , 'authors', 'journal' , 'doi' , 'abstract' ) )
if (length(pubmedSearch$ids) > 0)
{
......@@ -231,7 +229,7 @@ Yet not all scientific journals are economically equivalent. Some are run by non
Some are supported at moderate cost by scholarly institutions. Scientists are not always well informed about the complexity of journal business models, and rarely take this criterion into account when deciding to interact with a journal as an author, reviewer or editor. Supporting academia-friendly journals, though, is a way to contribute to a fairer scientific publishing system.</p>"))),
shinydashboard::infoBox(HTML("<h3><strong>Content</strong></h3>"), icon = icon("folder-open", lib = "glyphicon"), color = "yellow", fill =TRUE,width=12,
HTML("<p>The DAFNEE database offers a list of ~280 non-profit, learned society, museum or university-associated journals relevant to ecology and evolutionary biology. The database includes generalist journals (e.g. eLife, PLoS Biol, PNAS, Science), flagship society journals (e.g. Am Nat, Heredity, JEB, Proc B, MBE, Syst Biol), Open Science initiatives (e.g. Peer Communiy In, MorphoMuseuM), and many high-quality journals specialized in palaeo-archaeobiology, systematics, genetics, theoretical biology, organismal biology, environmental and health sciences. Journals can be queried/sorted by topic, business model, academic partnership, publication fees, and impact factor.</p>")),
HTML(paste0("<p>The DAFNEE database offers a list of ",CurrentDAFNNEjournals," non-profit, learned society, museum or university-associated journals relevant to ecology and evolutionary biology. The database includes generalist journals (e.g. eLife, PLoS Biol, PNAS, Science), flagship society journals (e.g. Am Nat, Heredity, JEB, Proc B, MBE, Syst Biol), Open Science initiatives (e.g. Peer Communiy In, MorphoMuseuM), and many high-quality journals specialized in palaeo-archaeobiology, systematics, genetics, theoretical biology, organismal biology, environmental and health sciences. Journals can be queried/sorted by topic, business model, academic partnership, publication fees, and impact factor.</p>"))),
shinydashboard::infoBox(HTML("<h3><strong>Attributes</strong></h3>"), icon = icon("barcode", lib = "glyphicon"), color = "yellow", fill =TRUE,width=12,
HTML("<ol> <li>Journal [Journal name] </li>
<li>Field [an arbitrary thematic classification of journals intended to ease DAFNEE browsing] </li>
......@@ -277,7 +275,6 @@ server <- function(input, output){
this_table <- reactiveValues(table=empty_table, origine="ISEM")
observeEvent(input[["tabselected"]], {
print(input[["tabselected"]])
if(input[["tabselected"]] == "5"){ #5 n'existe pas donc hide tout le temps
showElement(selector = "#sidebar")
removeCssClass("main", "col-sm-12")
......@@ -373,7 +370,7 @@ output$AbstractWords <- renderPlot({
if ( nrow(this_table$table)==0) return()
if (this_table$origine == "pubmed")
{ print("pubmed")
{
docs <- Corpus(VectorSource(this_table$table$abstract))
} else #there is no abstract in the ISEM DB
docs <- Corpus(VectorSource(this_table$table$title))
......@@ -560,7 +557,18 @@ output$ethicalityPlot <- renderPlot({
}
}
p <- p + labs(title="Distribution of DAFNEE Usage Index among ISEM researchers",x=subtitle, y = "Count")+ theme_classic()
p <- p + labs(title="Distribution of DAFNEE Usage Index among ISEM researchers",x=subtitle, y = "Count")+
theme(
panel.background = element_rect(fill = "#faeed2",
colour = "#faeed2",
size = 0.5, linetype = "solid"),
panel.grid.major = element_line(size = 0.5, linetype = 'dotted',
colour = "black"),
panel.grid.minor = element_line(size = 0.25, linetype = 'dotted',
colour = "black")
)
#theme_classic()
p
})
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment