Nothing
output$ui_about <- renderUI({
out <- fluidRow(
column(width = 8, offset = 2, h2(("sdmApp"))),
#column(width = 8, offset = 2, tags$img(src=system.file("docs","Logo_sdmApp.png",package = "sdmApp"),height=50,width=50)),
column(width = 8, offset = 2, p("sdmApp is a R package containing a 'Shiny'
application that allows non-expert R users to easily model
species distribution. It offers a reproducible work flow for
species distribution modeling into a single and user friendly environment.
sdmApp takes raster data (in format supported by the raster package)
and species occurrence data (several format supported) as input argument.
This package provides an interactive graphical user interface (GUI).")
))
out <- list(out, fluidRow(
column(width = 8, offset = 2, h4(("Contact and Feedback"))),
column(width = 8, offset = 2, p("In case you have any suggestions or bug reports, please file an issue at the",
tags$a("issue tracker", href="https://github.com/Abson-dev", target="_blank"),"in our",
tags$a("GitHub repo", href="https://github.com/Abson-dev", target="_blank"),"."))
))
out
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.