如何在fluidRow中插入空格？答案

【问题标题】：How to insert a blank space in fluidRow?如何在fluidRow中插入空格？
【发布时间】：2020-10-11 14:35:59
【问题描述】：

我有一个简单的应用程序，如下所示。如何修改fluidRow 语句以在A1 和C1 之间包含一个空格，以便所有选择器正确对齐？在这种情况下，我根本不需要“B1”选择器。

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)

【问题讨论】：

如果你想添加一个空的div，你可以做类似` 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)))`。但我不喜欢这种方法。我会以逐行方式放置输入。如果你愿意，我可以举个例子作为答案
这实际上非常适合实际用例（即使不是最有效的方式）。非常感谢。如果您填写完整的回复，很乐意为您提供答案！
哦，谢谢。我只是添加它:)

标签： r shiny

【解决方案1】：

对于这种特殊情况，类似以下的工作

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)

您可以根据需要修改 div 的高度。

但是，在我看来，更好的方法是使用逐行方法来插入输入。类似于以下内容

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))
)

但正如您所见，它与现在使用的map() 函数不兼容。

【讨论】：