Little change in DAFNEE distrib.

app.R

@@ -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
 })