如何在Shiny中调整条件面板的位置?

林mus

我正在尝试调整条件面板的位置。现在,条件面板固定在浏览器的左边缘,我想将其稍微向右移动。我可以知道该怎么做吗?以下是我闪亮的应用程序的简化虚拟版。

用户界面

library(shiny)
library(dygraphs)

shinyUI(fluidPage(
    titlePanel(p("Indicators (Dummy Ver.)"), 
        windowTitle = "Indicators"),

    sidebarLayout(
        conditionalPanel(condition="input.conditionedPanels==2",
            tags$style(type="text/css", '#leftPanel { width:250px; float:left;}'),
            id = "leftPanel",
            radioButtons("timeInterval", label = h3("Time Interval"),
                    choices = c("Hourly","Daily"),
                    selected = "Hourly")
            ),
        mainPanel(
            tabsetPanel(
                tabPanel("SNES", value=1,
                    dygraphOutput("tsPlot1"),
                    h3("Header"),
                    p("Descriptions")
                ),
                tabPanel("MA", value=2,
                    dygraphOutput("tsPlot2"),
                    h3("Header"),
                    p("Descriptions")               
                ),
                id = "conditionedPanels"
            )
        )    
    )
))

服务器

library(shiny)
library(dygraphs)
library(xts)

x1 <- arima.sim(model=list(ar=c(.9,-.2)),n=100)
x2 <- arima.sim(model=list(ar=c(0.8,0.1)),n=100)

start <- as.POSIXct("2015-08-01 08:00")
interval <- 60
end <- start + as.difftime(99, units="hours")
timeSeq <- seq(from=start, by=interval*60, to=end)


shinyServer(
    function(input, output){

        SNES <- xts(x1, order.by = timeSeq)
        names(SNES) <- c("Sentiment")

        marine <- xts(x2, order.by = timeSeq)
        names(SNES) <- c("Activities")

        output$tsPlot1 <- renderDygraph({
            dygraph(SNES,main="Sentiment",
                ylab="Frequency") %>%
                dyLegend(width = 760)  %>% 
                dyRangeSelector(height = 20)
        })

        output$tsPlot2 <- renderDygraph({
            dygraph(marine,main="Arrivals & Departures",
                ylab="Frequency") %>%
                dyLegend(width = 720)  %>% 
                dyRangeSelector(height = 20)
        })

    }
)
林mus

@ulfelder,感谢您的建议。您的回答帮助我解决了问题。我们可以通过将条件面板的内容包装在一栏中来在浏览器边缘和文本之间创建间隙,如下面的代码所示。我们不需要添加额外的列。

sidebarLayout(

    conditionalPanel(condition="input.conditionedPanels==2",

      column(1,
        tags$style(type="text/css", '#leftPanel { width:250px; float:left;}'),
         id = "leftPanel",
         radioButtons("timeInterval", label = h3("Time Interval"),
                choices = c("Hourly","Daily"),
                selected = "Hourly")
      )

    ),

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

如何在Scala的过滤器中应用或调整条件?

如何在R Shiny中添加交互式文本输入面板

在R Shiny中调整盒子面板的尺寸

如何在Shiny中隐藏条件面板?

如何在Shiny Dashboard的主面板中添加更多空白?

在Shiny R中嵌套条件面板

如何在面板包装中显示我的徽标,而不是在Magento 2.3中显示实际位置?

如何基于HighCharts中的x轴类别中的任意一个来调整条形图的大小

如何在Shiny仪表板中创建条件renderUI

调整面板/窗体大小时如何在面板中重新排列多个按钮?

如何调整条形图的图形间距。Matplotlib

如何在Unity中调整顶部面板的大小?

如何在LibreOffice Calc中调整条形图上的Y轴最大值

如何在JFrame中调整这些面板的大小?

如何在Visual Basic 2013(.net)中自动调整水平对齐的面板的大小

如何在 Shiny 中为条件面板设置样式

如何在 Xubuntu 上调整 Xfce 4 面板的大小?

如何在 MATLAB 中调整条形绝对宽度

如何在swift5中调整UINavigationBar的位置?

如何在 Django 中的 __str__ 模型函数中以整条消息的形式进行返回?

如何调整条形图使条形变小?

如何调整 Shiny App 中嵌入的视频位置?

在 R Shiny 中,如何从不同的条件面板控制相同的对象?

在 R Shiny 中,如何在不使用 renderUI 的情况下首次调用应用程序时消除侧边栏中所有条件面板的闪烁?

在主面板中渲染条件面板时,在 R Shiny 中,单击操作按钮时如何更改视图?

在 R Shiny 中,如何在侧边栏面板的指定部分周围绘制一个框?

如何在R中调整条形图的宽度

如何在小型显示器中调整 svg 位置?

如何在ggplotly中调整条形图?