colonna di liquido lucido bianco spazio

Question

Ho un banner superiore che voglio dividere in due sezioni separate che rappresentano due input diversi. Per fare questo, ho creato una fluidRow e con due colonne, una per ogni input. Tuttavia, dato che ora c'è un po 'di spazio bianco tra le colonne, nonostante la posizione offset = 0. Esiste un modo per rimuovere questo spazio bianco in modo che le colonne siano immediatamente una accanto all'altra?

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

Lo spazio bianco è l'imbottitura della colonna div. Per rimuoverlo, usa

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