div(
br(),
fluidRow(
column(8, textInput('console', NULL, placeholder = 'Enter R command here')),
column(3, uiOutput('evalConsoleBtn'))),
pre(textOutput('consoleCtrl'), style="padding-left: 10px; padding-right: 40px;")
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.