library(shiny)
library(shinyalert)
ui <- fluidPage(
useShinyalert(),
textInput("mobile", "Mobile", value = "", placeholder = "Enter your number"),
uiOutput("try"),
actionButton("send", "Preview")
)
server <- function(input, output, session) {
a<- reactive({
input$mobile
})
observeEvent(input$send,{
output$try<- renderUI({
rndno <-floor(runif(1, min=1000, max= 9999))
smsmessage<-paste0('Your verification code is ',rndno)
HTML(paste0(tags$a(href= paste0("http://www.username=&password=*******&to=",a(),"&from=***&text=Your verification code is"," ",rndno,"),
"Click here")))
})
})
}
shinyApp(ui, server)