# NOT RUN {
if (interactive()) {
library(dash)
app <- Dash$new()
app$layout(htmlDiv(list(
htmlForm(children=list(
htmlP(children=list('Username: ',
dccInput(type='text',
id='username',
placeholder='username'))),
htmlP(children=list('Password: ',
dccInput(type='password',
id='password',
placeholder='password'))),
htmlButton(children=list('Login'),
type='submit',
id='login_button')
)
)
)
)
)
app$run_server()
}
# }
Run the code above in your browser using DataLab