2016-06-14 131 views
0

enter image description here请提醒我如何减少侧面板和主面板之间的空间闪亮的应用程序。减少侧面板和主面板之间的空间闪亮

问候,
磨憨

[![输入图像的描述在这里] [2] [2]

+0

Wheres the code? –

+1

如果您发布了代码R – CClaire

+0

@CClaire,则可以更轻松地为您提供帮助我已将代码发布到下面的链接中,http://stackoverflow.com/questions/37792933/need-help-on-conditional-panel-in-shiny –

回答

2

我使用列选择我的仪表盘的大小。我认为这个问题是因为你在标签$ style中设置了px的大小。 This code works

library(shiny)  
library(shinythemes) 

shinyUI(fluidPage(theme = shinytheme("cerulean"), 
       #img(src='logo.jpg', align = "right"), 
       titlePanel("Project1"), 
       fluidRow(width=12, 
       sidebarLayout(
       column(width=4, 
       sidebarPanel(
        width=12, 
        radioButtons("source", "Source Type:", c("online", "offline")), 
        conditionalPanel(
         condition = "input.source == 'online'", 
         selectInput("e_source", "online_Source", 
            list("Yahoo","CNBC","Others"), selected = "CNBC")), 
        conditionalPanel(
         condition = "input.source == 'offline'", 
         selectInput("e_source", "offline_Source", 
            list("Newspaper", 
             "magazines", 
             "books"), selected = "books")), 
        checkboxGroupInput("size", 
            label = ("aAd size"), 
            choices = list("Medium", "Large", "small" 
            ), selected = "small"))), 
       column(width=8, 
         mainPanel(tabsetPanel("tab",tabPanel("Ad Details", tableOutput("table1"))), width=12)) 
      ))))