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混淆了。如果您单击链接，它可能会将您导航到/_w_ad877768/#之类的地方。您可以使用href="javascript:void(0)"代替href="#"或在锚点的点击处理程序中添加event.preventDefault()来阻止导航。

ShinyBS PRO无法使用ShinyBS模式

1 个答案: