#' about
#'
#' @param title
#'
#' @return shiny tagList
#' @import shiny
#' @export
about <- function(title = "About"){
hidap_release = paste0("HIDAP preview 1.0 (build: ", packageVersion("hidap"), ") [", Sys.Date(), "]")
# about_sv <- function(input, output, session) ({
# eventReactive(input$about_update, {
# devtools::update_packages()
# })
# })
out = tagList(
h2(title),
img(src="about.png", width = "100%"),
hidap_release,
p(class = "text-muted", style = "text-align:justify",
paste0("HIDAP is a tool designed to help breeders of clonal crops (like potato and sweetpotato) ",
"to carry out planning, documentation, analysis and reporting in breeding programs.")
),
fluidRow(
column(width = 2, img(src = "Logo1.png", width = "230") ),
column(width = 2, img(src = "rtb.png", width = "230") ),
column(width = 2, img(src = "gt4sp.png", width = "100") ),
column(width = 2, img(src = "sasha.png", width = "230") ),
column(width = 2, img(src = "usaid.png", width = "230") ),
column(width = 4)
),
br()
# ,
# actionButton("about_update", "Check for updates.", icon = icon("cloud-download"))
)
out
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.