Question

我在仪表板上工作，我想创建一个动态弹出窗口，即我们可以移动。我可以创建一个弹出窗口，但是这个是静态的，我喜欢那个可以接受它并将它移到右边，左边......

我弹出的一个例子：

<uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE" />

result

我希望用户可以移动此窗口。如果您有改变选项的想法，或者如果您知道BS Shiny以外的任何其他方法来创建新窗口......

提前谢谢你，对不起我的英语！

Answer 1

你可以尝试这样做：

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")))))

Answer 2

使用Shinyjqui软件包。有关示例脚本，请参见：

https://github.com/rstudio/shiny/issues/1698

更改：

jqui_draggable（selector ='.modal-content'）

进入：

jqui_draggable（ui ='.modal-content'）

RShiny动态弹出窗口（可以移动）

2 个答案: