cột lỏng sáng bóng cột trắng

Question

Tôi có một biểu ngữ trên cùng mà tôi muốn chia thành hai phần riêng biệt thể hiện hai đầu vào khác nhau. Để làm điều này, tôi đã tạo ra một fluidRow và với hai cột, một cột cho mỗi đầu vào. Tuy nhiên, vì bây giờ có một chút không gian màu trắng giữa các cột, mặc dù đặt offset = 0. Có cách nào để loại bỏ không gian màu trắng này để các cột ngay bên cạnh nhau không?

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

Khoảng trắng là phần đệm của cột div. Để xóa điều đó, hãy sử dụng

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