#' Input with achievement description
#'
#' @export
#' @import shiny
achievementInput <- function(id, desc = "", topics = "", values = "") {
ns <- NS(id)
tagList(
textAreaInput(ns("desc"), "Achievement", value = desc),
textInput(ns("topics"), "Topic tags", value = topics),
textInput(ns("values"), "Topic values", value = values)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.