A shiny app to add a hyperlink and send data back to server.

server.R

library(shiny)

shinyServer( function(input, output, session) {
    
    output$results <- renderPrint({
        input$mydata
    })
    
})

ui.R

library(shiny)

shinyUI( bootstrapPage(  
    # a div named mydiv
    tags$a(
        id="mydiv", 
        href="#", 'click me', 
        onclick = 'Shiny.onInputChange("mydata", Math.random());'),
    
    # an element for unformatted text
    verbatimTextOutput("results")

    ))