Question

我在哪里可以获得包含bsModal（）函数的shinyBS包的版本。我在我的机器上加载的版本没有此功能。我真的需要它。我也无法找到包含bsModal（）的文档。这还存在吗？我假设这是一个相对较新的功能。

Answer 1

您需要使用shinyBS版本0.25才能获得bsModal（）或其他一些新功能。为此，您需要：

install_github("shinyBS", "ebailey78")

您可以在shinyBS demo的最后一个标签中找到与bsModal（）相关的文档

即便如此，您将获得bootstrap 2.3.2模式而不是最新的v3.3.1。如果您需要最新版本，可以来源：

# Adding a bootstrap 3 modal dialog
bsModalBoot3 <- function (id, title, trigger, ..., href) 
{
  mo <- tags$div(class = "modal sbs-modal fade", id = id, 'data-trigger' = trigger, tabindex="-1", role="dialog", 'aria-labelledby'="myModalLabel", 'aria-hidden'="true",
                 tags$div(class = "modal-dialog", tags$div(class = "modal-content", tags$div(class = "modal-header", 
                                                                                             tags$button(type = "button", class = "close", 'data-dismiss' = "modal", 
                                                                                                         HTML("&times;")), tags$h3(class = "modal-title", id="myModalLabel", title)), body <- tags$div(class = "modal-body"), 
                                                           tags$div(class = "modal-footer", tags$a(href = "#", class = "btn", 
                                                                                                   'data-dismiss' = "modal", "Close")))))
  if (!missing(href)) {
    mo <- addAttribs(mo, 'data-remote' = href)
  }
  else {
    mo$children[[1]]$children[[1]]$children[[2]] <- tagAppendChildren(mo$children[[1]]$children[[1]]$children[[2]], 
                                                                      list = list(...))
  }
  return(mo)
}

您可以在我的分叉上查找更改：

install_github("shinyBS", "Bolaka") - installs shinyBS vs 0.26

并调用bsModalBoot3（）来使用bootstrap 3.3.1模态：）

带有bsModal（）的R Studio shinyBS包的第一个版本

1 个答案: