How to insert a blank space in fluidRow? - r

Question

I have a simple app as shown below. How can I modify the fluidRow statement to include a blank space between A1 and C1 so that all selectors align properly? In this instance, I do not want a 'B1' selector at all.
library(shiny)
inputs <- c("A0", "B0", "C0")
ui <- fluidPage(
fluidRow(column(width = 2, inputs %>% map(~numericInput(.x, .x, min = 1, max = 10, value = 3))),
column(width = 2, numericInput("A1", "A1", min = 1, max = 10, value = 3),
numericInput("C1", "C1", min = 1, max = 10, value = 3)))
)
server <- function(input, output, session) {
}
shinyApp(ui, server)

Answer 1

For this particular case, something like the following works
library(shiny)
library(magrittr)
library(purrr)
inputs <- c("A0", "B0", "C0")
ui <- fluidPage(
fluidRow(column(width = 2, inputs %>% map(~numericInput(.x, .x, min = 1, max = 10, value = 3))),
column(width = 2,
numericInput("A1", "A1", min = 1, max = 10, value = 3),
div(style = "height:73.5px"),
numericInput("C1", "C1", min = 1, max = 10, value = 3))
)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
You can modify the height of the div if you want.
However, in my opinion, a better approach is to use a row wise approach to insert the inputs. Something like the following
fluidRow(
column(2, numericInput("A0", "A0", min = 1, max = 10, value = 3)),
column(2, numericInput("A1", "A1", min = 1, max = 10, value = 3))
),
fluidRow(
column(2, numericInput("B0", "B0", min = 1, max = 10, value = 3))
),
fluidRow(
column(2, numericInput("C0", "C0", min = 1, max = 10, value = 3)),
column(2, numericInput("C1", "C1", min = 1, max = 10, value = 3))
)
but as you can see it is not compatible with the map() function as being used now.