Как объединить имена столбцов с FluidRow в RShiny

Question

Я сейчас занимаюсь разработкой приложения Shiny.В этом я не получаю ожидаемый результат.Ожидаемый выходной сигнал составляет

Но вывод, который я получаю, составляет

Этот код используется

ui.R

shinyUI(
  dashboardPage(
        dashboardSidebar(
      sidebarMenu(
        id = 'MENU', badgeColor = "aqua", 
        menuItem('VIEW', tabName = 'view'),
        menuItem('EDIT',tabName = 'edit')
      )
    ),
    dashboardBody(
      tabItems(tabItem(tabName = "edit",                      
      uiOutput("moreControls"))))

server.R

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

Можеткто-нибудь помочь мне с этим вопросом?Заранее спасибо ..

Answer 1

Ниже код даст вам необходимый wellPanel макет.Примечание: я не использовал ваш полный код, просто попытался достичь указанного макета.Поэтому замените блок кода, если он решит вашу проблему.

   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)