# NOT RUN {
library(shiny)
library(shinyChakraUI)
ui <- chakraPage(
br(),
chakraComponent(
"mycomponent",
Tag$Button(
colorScheme = "pink",
size = "lg",
onClick = jseval('() => alert("Hello Chakra")'),
"Trigger alert"
)
)
)
server <- function(input, output, session){}
if(interactive()){
shinyApp(ui, server)
}
# }
Run the code above in your browser using DataLab