new tabs

app.R

@@ -20,6 +20,8 @@ source("tab_curves.r", local = TRUE)
 source("tab_help.r", local = TRUE)
 source("tab_export.r", local = TRUE)
 source("tab_compare.r", local = TRUE)
+source("tab_contrib.r", local = TRUE)
+source("tab_cite.r", local = TRUE)
 
 source("fit_loess.r", local = TRUE)
 
@@ -41,7 +43,9 @@ ui <- fluidPage(
     tabCompare,
     tabCurves, 
     tabExport,  	
-    tabHelp
+    tabHelp,
+    tabContrib,
+    tabCite
   )
 )
 

tab_cite.R

@@ -0,0 +1,22 @@
+tabCite <- tabPanel("Citation",
+
+  fluidRow(
+  	column(width = 10,offset = 2,
+  		br(),
+	  	strong("How to cite the EGrowth database"),   
+	  	h5("Building this database has been a tremendous work,"),  
+	  	h5("So please cite the database if you use it!"),  
+
+        br(),
+	  	strong("You can cite the GUI, the database, or the paper"),
+	  	h5("The references can be found on Zenodo"),
+
+	    br(),
+	    h5("I will be more than happy to list your papers that cite this database, provided you notice me."),
+	    h5("Thanks in advance."),
+	    h5("Jerome")
+    )
+
+  )
+
+)

tab_contrib.r

@@ -0,0 +1,19 @@
+tabContrib <- tabPanel("Contribute",
+
+  fluidRow(
+  	column(width = 10,offset = 2,
+  		br(),
+	  	strong("You want to put your data in EGrowth?"),   
+	  	h5("You are more than welcome to send your data to Contribute the database!"),  
+	  	h5("Please contact me by e-mail and I will give you further instruction."), 
+
+	  	br(),
+	    h5("I will enter the data by myself in order to keep the database clean."), 
+	    h5("For the moment only published data are integrated in the database."),
+	    br(),
+	    h5("Thanks in advance.")
+    )
+
+  )
+
+)

tab_curves.r

@@ -1,4 +1,4 @@
-tabCurves <- tabPanel("Explore Growth Curves",
+tabCurves <- tabPanel("Explore Curves",
 
       sidebarLayout(
           sidebarPanel(h5(""),width = 3,

tab_help.r

@@ -5,7 +5,7 @@ tabHelp <- tabPanel("Help",
 
   column(width = 8,offset = 1, 
     br(),
-    h5("In this App you will find different panels to explore the database:"),
+    h5("In this App you will find different panels to explore the database"),
     br(),
 
    strong("Panel 'Metadata'"),
@@ -37,7 +37,7 @@ tabHelp <- tabPanel("Help",
       br(),
 
 
-    strong("Panel 'Explore growth curves'"), 
+    strong("Panel 'Explore curves'"), 
       tags$ul(    
           h5("This panel allows you to explore individual growth curves
             -- biomass of individuals at several dates -- 
@@ -68,7 +68,7 @@ tabHelp <- tabPanel("Help",
 
       strong("Panel 'Export data'"),
       tags$ul(
-          h5("This tab allows you to export the curves selected in the Explore growth curves panel")
+          h5("This tab allows you to export the curves selected in the Explore curves panel")
       ),
 
       br(),

tab_home.r

@@ -12,28 +12,57 @@ tabHome <- tabPanel("Home",
   ),    
 
   fluidRow( 
-    column(width = 8,offset = 2, 
+    column(width = 7,offset = 2, 
             br(),
-            strong(em("Welcome to the EGrowth database")),
+            strong(em("Welcome to the EGrowth database GUI")),
+
             br(),
-            h5("The EGrowth database comprises data on body growth curves of earthworm species across the globe. Data
+            h5("The EGrowth database is designed to make comparative analysis of body size in the earthworm group, and to model Intraspecific
+               body size variability (IBSV) in relation to environmental predictors."),
+            h5("Most species' traits beeing proportional to body size, the EGrowth database should help tackling the role of Intraspecific Trait variability (ITV) in earthworm."),
+
+            br(),
+            h5("The EGrowth database comprises more than 1000 body growth curves -- biomass of individuals at several dates -- of earthworm and covers more than 50 from species across the globe. Data
              are compiled from a combination of published literature and other sources such as PhD thesis and reports.
-             The data reports growth curves -- biomass of individuals at several dates -- in a variety of conditions and
-             environmental conditions."),
+             Each curve is given with metadata that contains the experimental and environmental conditions in which the curves were produced."),
+
             br(),
-            h5("You will find two panels to explore the data"),
+            h5("The code of the app and the database can be found on GitHub and Zenodo: https://zenodo.org/"),
+
+
             br(),
-            strong("Explore growth curves"), 
-            h5("This panel allows you to explore individual growth curves. You can select the   
-              environmental conditions in which the curves were produced and the species studied."),
+            h5("You will find four panels to explore the database:"),
+
             br(),
             strong("Metadata"),
-            h5("This panels summarizes the data available in the database: 
-              environmental conditions studied, location of the studies, and so on."),
+            tags$ul(
+              h5("This panel summarizes the data available in the database: 
+                 environmental conditions studied, location of the studies, and so on.")
+            ),
+
+            br(),
+            strong("Compare curves"),
+            tags$ul(
+              h5("This panels allows you to compare growth curves within species: Intraspecific
+               body size variability (IBSV)."),
+               h5("You can compare species by treatment level."),
+               h5("Curves can be grouped by treatment type or by publication.")
+            ),
+
             br(),
-            h5("You can export the data with the Export data panel"),
+            strong("Explore curves"), 
+            tags$ul(
+              h5("This panel allows you to explore individual growth curves by species. You can select the   
+                  environmental conditions in which the curves were produced.")
+            ),
+
             br(),
-            h5("Any question? see the help section or send me an email.")
+            strong("Export Data"),
+            tags$ul(
+              h5("In this panel you can export the data selected in the explore curves panel."),
+              br(),
+              h5("Any question? see the help section or send me an email.")
+            )
     )
   )   
 )