add info about the publication

app.R

@@ -65,7 +65,13 @@ ui <- fluidPage(
                         column(12, "Shallow Hydrothermal vent emissions in Vulcano 
                         Island (Aeolian Archipelago, Italy).")))),
                hr(),
-               helpText("Info from http://www.marinehazard.cnr.it.", 
+               helpText("MH-shiny was published as part of the publication:",
+                        br(),
+                        "Costa V, Sciutteri V, Consoli P, Manea E, Menini E, 
+                        Andaloro F, Romeo T, Danovaro R. 
+                        Volcanic-associated ecosystems of the Mediterranean Sea: 
+                        a Systematic Map and an Interactive Tool to support their 
+                        conservation. (Under review). ",
                         align = "center")
 
              )),

rsconnect/shinyapps.io/valybionda/MH-shiny.dcf

@@ -0,0 +1,13 @@
+name: MH-shiny
+title: MH-shiny
+username:
+account: valybionda
+server: shinyapps.io
+hostUrl: https://api.shinyapps.io/v1
+appId: 5683000
+bundleId: 6732699
+url: https://costavale.shinyapps.io/MH-shiny/
+when: 1673690985.74851
+lastSyncTime: 1673690985.74853
+asMultiple: FALSE
+asStatic: FALSE