2016-04-08 14 views
2

私はダッシュボード上で作業しています。私は動的なポップアップを作成したい、つまり移動できます。 RShinyの動的ポップアップ(移動可能)

...私は1つは、それを取ると、左、右、に移動できることを好きで、私のポップアップの例を私はポップアップを作成することができますが、この1つは静的である:

library(shiny) 
library(shinyBS) 

shinyApp(

    ui = 
    fluidPage(
     sidebarLayout(
     box(actionButton("tabBut", "View Table")), 
     mainPanel(
      bsModal("modalExample", "Data Table", "tabBut", size = "large", 
        dataTableOutput("distTable"))))), 

    server = 
    function(input, output, session) { 
     output$distTable <- renderDataTable({ 
     x <- faithful[, 2] 
     bins <- seq(min(x), max(x), length.out = 30 + 1) 
     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))} 
) 

result

そして、私はこのウィンドウを移動することができます。 あなたが変更するオプションのアイデアを持っている場合、またはBS以外の任意の手段を知っていれば、新しいウィンドウを作成することができます...

ありがとう、私の英語のために申し訳ありません!

+0

チェックアウト[superzipの例](http://shiny.rstudio.com/gallery/superzip-example.html)を見て、彼らが 'absolutePa 'draggable = T'を追加することができます。最小限の労力であなたが探しているものを提供する必要があります。 – brittenb

+0

本当にありがとうございますabsolutePanelも動作します。 – CClaire

答えて

0

あなたはmanyallyそれをしようとすることができます:

1)追加のスクリプト

2)ドラッグ可能

3)編集CSS

のような追加:

ui = 
    fluidPage(
     tags$head(HTML('<script src="//code.jquery.com/jquery-1.10.2.js"></script> 
        <script src="//code.jquery.com/ui/1.11.2/jquery-ui.js"></script>')), 
     tags$script(HTML(' $(window).load(function(){ 
         $("#modalExample").draggable({ 
         handle: ".modal-header" 
            }); 
            });')), 
      tags$style(HTML(" 
      .modal-backdrop.in { 
       opacity: 0; 
      }  
       ")), 
     sidebarLayout(
     box(actionButton("tabBut", "View Table")), 
     mainPanel(

      bsModal("modalExample", "Data Table", "tabBut", size = "large", 
        dataTableOutput("distTable"))))) 
+0

はい、どうもありがとうございます! – CClaire