shinyBS 模态不适用于 Shiny Server PRO

Question

我有以下示例应用程序，它提供了一个带有数据表输出的模式。

这在 RStudio 中有效，在任何浏览器中本地有效，在带有 Shiny Server（免费版）的 EC2 Linux 实例上有效。但是，不适用于 Shiny Server PRO。关于限制的任何想法？我尝试了所有我知道的调试方法，但没有发现问题。

library(shiny)
library(DT)
library(shinyBS)
library(dplyr)

mtcarsSummary <- mtcars %>%
  group_by(am) %>%
  summarise(numCars = n())

makeSummaryLinked <- function(df, linkName1, modalName1)
{
  on_click_js1 = paste(
    'Shiny.onInputChange(&#39;', linkName1, '&#39;, &#39;%s&#39;); $(&#39;',
    modalName1, '&#39;).modal(&#39;show&#39;)', sep = ''
    )

  dfLinked <- df
  tagList1 <- tags$a(
    href = "#",
    onclick = sprintf(on_click_js1, df$am),
    df$am
    )
  tagList1 <- data.frame(V1 = tagList1$attribs$onclick, V2 = tagList1$children)
  colnames(tagList1) <- c('V1', 'V2')

  dfLinked$am_linked <- paste(
    '<a href="#" onclick="', tagList1$V1, '">', tagList1$V2, '</a>', sep = ''
    )

  dfLinked <- select(
    dfLinked, am_linked, everything()
    )

  return(dfLinked)
  }

mtcarsLinked <- makeSummaryLinked(mtcarsSummary, 'myAm', paste0('#', 'amModal'))

ui <- fluidPage(
    fluidRow(
      mainPanel(
        DT::dataTableOutput('myData'),
        bsModal(
          id = 'amModal',
          title = 'What is this?',
          trigger = '',
          size = 'large',
          mainPanel(
            DT::dataTableOutput('amData'),
            width = 12
            )
          ),
          width = 12
        )
      )
    )

server <- function(input, output, session) {
  amData <- reactive({
    mtcars %>% filter(am == input$myAm)
    })
  output$myData <- DT::renderDataTable({
    mtcarsLinked %>%
      DT::datatable(
        escape = FALSE, class = 'compact', rownames = '', filter = 'none',
        options = list(dom = 'Bfrtrip')
        )
    })
  output$amData <- DT::renderDataTable({
    amData() %>%
      DT::datatable(
        escape = FALSE, class = 'compact', rownames = '', filter = 'none'
        )
    })
  }

shinyApp(ui, server)

其余闪亮的东西工作正常。 R 工作正常。所有软件包均已正确安装。

version
               _
platform       x86_64-pc-linux-gnu
arch           x86_64
os             linux-gnu
system         x86_64, linux-gnu
status
major          3
minor          4.1
year           2017
month          06
day            30
svn rev        72865
language       R
version.string R version 3.4.1 (2017-06-30)
nickname       Single Candle

封装版本如下：

packageVersion('shiny')
[1] ‘1.2.0’
packageVersion('DT')
[1] ‘0.5’
packageVersion('shinyBS')
[1] ‘0.61’
packageVersion('dplyr')
[1] ‘0.7.8’

Answer 1

我敢打赌这是 Shiny Server 使用了 <base> 标签，它与 # 这样的相关 href 混淆了。如果您单击 link，它可能会将您导航到类似 /_w_ad877768/# 的位置。您可以使用 href="javascript:void(0)" 而不是 href="#" 或在锚点的点击处理程序中添加 event.preventDefault() 来阻止导航。

shinyBS 模态不适用于 Shiny Server PRO

shinyBS modal not working with Shiny Server PRO

r

shiny

shiny-server

shinybs