小编kfu*_*ong的帖子

我正在开发一个Shiny的网络应用程序.我对R非常熟悉,但我对HTML,CSS,jQuery等的知识缺乏,这使得格式化的东西非常具有挑战性.

我想要包含一个actionButton用户可以点击以在出现问题或疑虑时向管理员发送电子邮件的内容.这是我到目前为止所做的工作,但是非常令人发指:

library(shiny)
ui <- shinyUI(fluidPage(
  # Set layout/format for app
  sidebarLayout(
    sidebarPanel(
      downloadButton("download_data", "Download this Data"),
      br(),
      actionButton(inputId = "email1", 
                   icon = icon("envelope", lib = "font-awesome"), 
                   a("Contact Admin", 
                       href="mailto:my_awesome_email_address.com"))
    ),
    mainPanel(),
    position = "left"
  )
)
)

server <- shinyServer(function(input, output) {})
shinyApp(ui, server)

如果可能的话,我想继续使用actionButton或类似的东西,以便在两个按钮上保持相同的按钮格式.

提前致谢!