如何在RShiny中将列名与FluidRow合并

我目前正在开发一款闪亮的应用程序。因为我没有得到预期的输出。预期产量为

但我得到的结果是

这是使用的代码

用户界面

服务器.R

---

有人能帮我解决这个问题吗？提前感谢。

下面的代码将为您提供所需的井面板布局。 注意：我没有使用您的完整代码，只是尝试实现指定的布局。因此，如果代码块解决了您的问题，请替换它

   library(shiny)
ui <- fluidPage(
  wellPanel(
    fluidRow(column(4,
      fluidRow(wellPanel("PEOPLE", style = "background-color:#0ec3c6;border-color:#0ec3c6;text-align:center;color: white;font-size: 24px;font-style: bold ;padding: 12px;")),
      style = "background-color:RGB(255,255,255); border-color:RGB(255,255,255);align:right;",
      fluidRow(column(4,  "Enter Email-ID"), column(8, textInput(label = NULL, inputId = 'EmailID' ))),
      fluidRow(column(4, "Enter First Name"), column(8, textInput(label = NULL, inputId = 'FirstName')))))))

server <- function(input, output, session) {
  onSessionEnded(stopApp)
}
shinyApp(ui, server)

---

有没有办法消除人们周围的空白？请解释一下你想如何展示你的wellPanel。您提到的是哪些空格？在预期输出中，项目标题周围没有空格。但在我的输出中，在标题周围有一个空白。你能识别它吗？检查修改过的代码。将“人员”井面板放置在fluidRow中删除了空白。

shinyServer(function(input, output, session) {
output$moreControls <- renderUI({
      wellPanel( 
        fluidRow(column(4,wellPanel(
          wellPanel("PEOPLE", style = "background-color:#0ec3c6;border-color:#0ec3c6;text-align:center;color: white;font-size: 24px;font-style: bold ;padding: 12px;"),
          style ="background-color:RGB(255,255,255); border-color:RGB(255,255,255);align:right;",
          textInput('email', 'Enter Email_Id'), 
          textInput('fn', ' Enter First Name')))))})
})

   library(shiny)
ui <- fluidPage(
  wellPanel(
    fluidRow(column(4,
      fluidRow(wellPanel("PEOPLE", style = "background-color:#0ec3c6;border-color:#0ec3c6;text-align:center;color: white;font-size: 24px;font-style: bold ;padding: 12px;")),
      style = "background-color:RGB(255,255,255); border-color:RGB(255,255,255);align:right;",
      fluidRow(column(4,  "Enter Email-ID"), column(8, textInput(label = NULL, inputId = 'EmailID' ))),
      fluidRow(column(4, "Enter First Name"), column(8, textInput(label = NULL, inputId = 'FirstName')))))))

server <- function(input, output, session) {
  onSessionEnded(stopApp)
}
shinyApp(ui, server)