从shinyBS中增加弹出式弹出窗口的宽度

问题描述：

我创建了弹出式窗口，shinyBS软件包中的popify功能闪亮。我想在我的过滤器底部弹出一个与我的过滤器一样宽的弹出窗口。我在文档中找不到任何关于此的内容。截图：示例代码：从shinyBS中增加弹出式弹出窗口的宽度

library(shiny) 
library(shinyBS) 

shinyApp(
    ui = 
    fluidPage(
     sidebarLayout(
     sidebarPanel(
      tags$span(
      popify(
      sliderInput("bins", 
         "Number of bins:", 
         min = 1, 
         max = 50, 
         value = 30), 
      'a very long popup',"1. I want everything behind 1 on one line and everything that starts after<br> 2. I want to see on the second line without wrapping it to the 3rd line.")), 
      actionButton("tabBut", "View Table") 
     ), 

     mainPanel(
      plotOutput("distPlot"), 
      bsModal("modalExample", "Data Table", "tabBut", size = "large", 
        dataTableOutput("distTable")) 
     ) 
    ) 
    ), 
    server = 
    function(input, output, session) { 

     output$distPlot <- renderPlot({ 

     x <- faithful[, 2] 
     bins <- seq(min(x), max(x), length.out = input$bins + 1) 

     # draw the histogram with the specified number of bins 
     hist(x, breaks = bins, col = 'darkgray', border = 'white') 

     }) 

     output$distTable <- renderDataTable({ 

     x <- faithful[, 2] 
     bins <- seq(min(x), max(x), length.out = input$bins + 1) 

     # draw the histogram with the specified number of bins 
     tab <- hist(x, breaks = bins, plot = FALSE) 
     tab$breaks <- sapply(seq(length(tab$breaks) - 1), function(i) { 
      paste0(signif(tab$breaks[i], 3), "-", signif(tab$breaks[i+1], 3)) 
     }) 
     tab <- as.data.frame(do.call(cbind, tab)) 
     colnames(tab) <- c("Bins", "Counts", "Density") 
     return(tab[, 1:3]) 

     }, options = list(pageLength=10)) 

    } 
)

应该用模板选项是可行的：http://getbootstrap.com/javascript/#tooltips-options，但我发现它不” t与'popify'中的选项一起工作，所以也许值得在github上提出一个问题。 – Carl

答

你可以尝试加入一些CSS来做到这一点。

在你的侧边栏面板，你可以添加：

tags$style(".popover{ 
      max-width: 100%; 
      }")

如果这还不够大，你可以在你popify添加options=list(container="body")使body持有其允许弹出窗口是在页面一样大。

有更多信息here，我适应那个答案R.

谢谢！奇迹般有效：） –

从shinyBS中增加弹出式弹出窗口的宽度

相关推荐