Use actionButton to send email in RShiny

I'm working on a web app in Shiny. I'm pretty familiar with R but my knowledge of HTML, CSS, jQuery, etc is lacking which makes formatting things nicely challenging.

I want to include an actionButton that the user can click on to send an email to the administrator in case of questions or concerns. Here's what I have so far, which kind of works but is pretty heinous:

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)

If possible, I'd like to keep using the actionButton or something similar in order to keep the same button format across both buttons.

Thanks in advance!