shiny

shiny::fluidRow(
  shinydashboard::box(title = "Intro Page", "Some description...", 
      shiny::actionButton(inputId='ab1', label="Learn More", 
                          icon = icon("th"), 
                          onclick ="window.open('http://google.com', '_blank')")
  )
)
onclick ="location.href='http://google.com';"


window.open("webpage.htm", "_self");
location.href = "webpage.html";

library(shiny)

How Action Button looks

actionButton("download", "Download Selected",
             icon = icon("cloud-download"))
  <button id="download" type="button" class="btn btn-default action-button">
    <i class="fa fa-cloud-download"></i>
    Download Selected
  </button>

  <button id="download" type="button" class="btn btn-default action-button">
    <i class="fas fa-cloud-arrow-down" role="presentation" aria-label="cloud-arrow-down icon"></i>
    Download Selected
  </button>

Trying to craft it

a(h4("Open Link", class = "btn btn-default action-button" , 
     style = "fontweight:600"), target = "_blank",
  href = paste0("http://www.somesite/", "some_link"))
  <a target="_blank" href="http://www.somesite/some_link">
    <h4 class="btn btn-default action-button" style="fontweight:600">Open Link</h4>
  </a>