發光的流體列白色空間

Question

我有一個頂部橫幅，我想分成兩個單獨的部分代表兩個不同的輸入。爲此，我創建了一個FluidRow和兩列，每個輸入一列。但是，現在在列之間有一些空白區域，儘管將偏移量設置爲0.是否有任何方法可以刪除此空白區域，以便列之間緊鄰？

colors = c("green","blue","red") 
library(shiny) 

ui <- fluidPage(

    tabsetPanel(
    tabPanel("Info", 
      fluidRow( 
        column(width = 6, offset = 0, 
         div(style = "height:50px;width:100%;background-color: #999999;border-style: solid;border-color: #000000", 
          tags$h3("Section 1") 
        ) 
        ), 
        column(width = 6, offset = 0, 
         div(style = "height:50px;width:100%;background-color: #999999;border-style: solid;border-color: #000000",  
          tags$h3("Section 2") 
         ) 
        ) 
      ), 
      fluidRow(
        column(width = 6, offset = 0, 
        div(style = "height:50px;width:100%;background-color: #999999;border-style: solid;border-color: #000000",  
         selectInput(inputId = "color",label = "color:", 
            choices = colors, 
            selected = colors[2], 
            multiple = FALSE) 
        ) 
        ), 
        column(width = 6, offset = 0, 
          div(style = "height:50px;width:100%;background-color: #999999;border-style: solid;border-color: #000000",  
           selectInput(inputId = "points",label = "Number of Points:", 
              choices = c("30","60","90"), 
              selected = "10", 
              multiple = FALSE)      ) 
        ) 
      ), 
      br(), 
      br(), 
      fluidRow(
        actionButton(inputId = "go", 
           label = "Update" 
        ) 
      ), 
      fluidRow(
        plotOutput("plot", width = "100%") 
      ) 

    ) 
) 
) 


server <- function(input, output,session) { 

    data = eventReactive(input$go, { 
    var1 = rnorm(isolate(as.numeric(input$points)),5) 
    cat1 = c(rep("red",length(var1)/3),rep("blue",length(var1)/3),rep("green",length(var1)/3)) 
    data = cbind.data.frame(var1,cat1) 
    plotdata = data[which(data$cat1 ==isolate(input$color)),] 
    } 
) 

    output$plot = renderPlot({ 
    plotdata = data() 
    plotcol = isolate(input$color) 
    plot(plotdata$var1, col = plotcol) 
    }) 
} 

shinyApp(ui = ui,server = server) 

Answer 1

白色空間是填充的列div。若要刪除，使用

column(width = 6, offset = 0, style='padding:0px;', ...)