Some text before a number [numericInput widget] some text right after the number.
library(shiny)
server <- function(input, output) {}
ui <- fluidPage(
mainPanel(p("some text before the number",
numericInput(inputId = "number",
label = NULL,
value = 5, min = 0, max = 10, step = 1,
width = '50px'),
"some text right after the number")
)
)
shinyApp(ui = ui, server = server)
I'm getting 3 lines instead of 1. Any ideas about how to achieve what I want?