glänzend fluidrow Spalte Leerraum

Question

Ich habe ein Top-Banner, das ich in zwei separate Abschnitte teilen möchte, die zwei verschiedene Eingänge darstellen. Um dies zu tun, habe ich eine FluidRow erstellt und mit zwei Spalten, eine für jeden Eingang. Wie es jetzt ist, gibt es jedoch ein kleines Leerzeichen zwischen den Spalten, obwohl Offset = 0 gesetzt ist. Gibt es eine Möglichkeit, diesen Leerraum zu entfernen, so dass die Spalten unmittelbar nebeneinander liegen?

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

Der Leerraum ist die Polsterung der Spalte div. Um das zu entfernen, verwenden Sie

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