Commit af7765fb authored by khalid's avatar khalid
Browse files

get ride of sidebarPanel

parent 17c0ee90
......@@ -154,6 +154,7 @@ getPubmedPapiers<- function(nom, prenom, maxPapers = 30, fic)
ui <- fluidPage(
useShinyjs(),
tags$head(
tags$link(rel = "stylesheet", type = "text/css", href = "style.css"),
#tags$style("div.dataTables_scrollHead span {color: black;}"),
......@@ -176,7 +177,7 @@ ui <- fluidPage(
add_busy_spinner(spin = "cube-grid", margins = c(500, 500)), #position='full-page'),
titlePanel(h2(entete , align = "center"), windowTitle=entete ),
sidebarLayout(position ='right',
sidebarPanel( width = 1,id="sidebar",
sidebarPanel( width = 1, id="Sidebar",
conditionalPanel(condition="input.tabselected==2",
# h5("DAFNEE Usage Index calculator :"),
# h6("Author's articles in academia-friendly journals / Author's total articles in surveyed journals"),
......@@ -198,7 +199,7 @@ ui <- fluidPage(
),
mainPanel( width = 11,
mainPanel( width = 11, id="Main",
tabsetPanel(type = "tabs",id = "tabselected",
tabPanel("Browse DAFNEE", value=1, h4(paste0(CurrentDAFNNEjournals, " non-profit, learned society, or university-associated journals relevant to the field of ecology and evolutionary biology"), style="text-align: center;font-family: 'Times New Roman', Times, serif;"), br(), DT::dataTableOutput("EthicJournals"),conditionalPanel(condition="input.tabselected==1", plotOutput("journalLags", height = "300px" ), h6("adapted from : https://quantixed.org/tag/lag-times/"))),
tabPanel("Author usage index", value=2,
......@@ -226,7 +227,8 @@ ui <- fluidPage(
fluidRow( width=12,
shinydashboard::infoBox(HTML("<h3><strong>Motivations</strong></h3>"), icon = icon("heart-empty", lib = "glyphicon"), color = "yellow", fill =TRUE,width=12, HTML("
<p>The scientific publishing market is widely known to be dysfunctional [1]. The average publishing price is an order of magnitude above the real cost [2,3]. This anomaly essentially results from the 'publish or perish' pressure placed on individual scientists, and the power of large publishing groups with high profit margins [4].
Yet not all scientific journals are economically equivalent. Some are run by non-profit organizations. Some are associated with learned societies, so the publication fees are partly reinvested in academia. 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>"))),
Yet not all scientific journals are economically equivalent. Some are run by non-profit organizations. Some are associated with learned societies, so the publication fees are partly reinvested in academia.
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>")),
......@@ -279,11 +281,12 @@ observeEvent(input[["tabselected"]], {
if(input[["tabselected"]] == "5"){ #5 n'existe pas donc hide tout le temps
showElement(selector = "#sidebar")
removeCssClass("main", "col-sm-12")
addCssClass("main", "col-sm-9")
addCssClass("main", "col-sm-11")
}else{
hideElement(selector = "#sidebar")
removeCssClass("main", "col-sm-9")
addCssClass("main", "col-sm-12")
removeCssClass("Main", "col-sm-11")
addCssClass("Main", "col-sm-12")
shinyjs::hide(id = "Sidebar")
}
})
......
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