library(shiny)
library(shinyjs)
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(
shiny::dataTableOutput("t1"), inlineCSS(list("table" = "font-size: 15x; width: 40%")),
actionButton("send", "Send")
)
)))
server<- function(input,output,session)
{
observeEvent(input$send,{
insertUI(selector = "#send", where = "beforeBegin",
ui=div(class="bubbles",
div(class="bubble",
wellPanel(
p("What is your preferred site?", tags$br(),
selectInput("selection", "site", choices =sort(unique(as.character(dt$Site) ))
)
)))))
})
observeEvent(input$selection, {
output$t1 <- shiny::renderDataTable({
enframe(paste0("<a href='",dt$links,"'>",dt$links,"</a>"),value="link",name=NULL)
}, escape=FALSE,
options = list(dom = 't',
searching= FALSE))
})
}
shinyApp(ui,server)