I have the simple shiny app below
#ui.r
navbarPage(
"Application",
tabPanel("General",
sidebarLayout(
sidebarPanel(
uiOutput("num8"),
uiOutput("num9")
),
mainPanel(
)
)
)
)
#server.r
library(shiny)
server <- function(input, output,session) {
output$c1<-renderUI({
checkboxInput("ch1",
h5("Person ID"), value = FALSE)
})
output$num8<-renderUI({
textInput("nm8",
h6("Column"),
value = 1)
})
output$num9<-renderUI({
textInput("nm9",
h6("Column"),
value = 1)
})
}
I want to bring those 2 widgets closer to one another as they still are one below the other.