I am trying to print the sites and their link as a hyperlink but not getting the desired output.
dt<- data.frame("Site"=c("google", "facebook", "microsoft"),
"links"=c("https://www.google.co.in/", "https://www.facebook.com/", "https://www.microsoft.com/en-in"))
ui<- fluidPage(
titlePanel("Links"),
fluidRow(column( width = 8,
div(
tableOutput("t1"), inlineCSS(list("table" = "font-size: 15x; width: 40%")),
)
)))
server<- function(input,output,session)
{
output$t1<- renderTable({
paste(dt$Site, dt$links)
})
}
shinyApp(ui,server)