# NOT RUN {
if (interactive()) {
library(dash)
app <- Dash$new()
app$layout(
htmlDiv(list(
htmlP(children="This text is 'Aladdin', but in Arabic script:"),
htmlBdi(children=paste0("\U{0639}\U{0644}\U{0627}\U{0621}",
"\U{0627}\U{0644}\U{062F}\U{064A}\U{0646}"))
)
)
)
app$run_server()
}
# }
Run the code above in your browser using DataLab