Use responsive arguments to adjust form layouts based on viewport size. Be sure to adjust the size of your browser window between large and small.
card( .style %>% background("secondary") %>% margin(3), formRow( formGroup( width = c(md = 6), # <- label = "Username", textInput( id = "user" ) ), formGroup( width = c(md = 6), # <- label = "Password", textInput( type = "password", id = "pass" ) ) ), formGroup( label = "Username", groupTextInput( id = "username", left = "@" ) ), buttonInput( .style %>% background("primary"), id = "go", label = "Go!" ) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.