Я использую jQuery (jQuery Core 2.1.4) для разработки части моего блестящего приложения. Кроме того, я использую новый пакет plotly
для рендеринга участков. jQuery отлично работает сам по себе и plotly
; однако при использовании обоих, участки от plotly
исчезают. Вызов jQuery кажется причиной.Плохо исчезает при использовании jQuery в R Shiny
Есть работы вокруг, что позволяет использовать JQuery и
plotly
(в частностиggplotly
) в том же Блестящая App?
Вот пример. Я знаю, этот пример не нужен JQuery, но только чтобы показать, как plotly
участки исчезают, когда в том числе JQuery (раскомментировать линии #tags$head(tags$script(src='http://code.jquery.com/jquery-2.1.4.js')),
включить его):
#Call the required libraries
library(shiny)
library(plotly)
library(ggplot2)
#Server to output plot
server <- shinyServer(function(input, output) {
output$plotlyout <- renderPlotly({
#Create random points
x <- rnorm(100)
y <- rnorm(100)
#Set to data frame
dats <- as.data.frame(cbind(x,y))
#Plot them in plotly
ggplotly(ggplot(dats) + geom_point(aes(x = x, y = y)))
})
})
#Shiny plot
ui <- shinyUI(
#One page with main Panel
fluidPage(
#Uncomment this to see how Jquery ruins everything
#tags$head(tags$script(src='http://code.jquery.com/jquery-2.1.4.js')),
#Panel for plot
mainPanel(
#Output plot
plotlyOutput("plotlyout")
)
)
)
shinyApp(ui = ui, server = server, options = list(launch.browser = TRUE))
Спасибо!
«но только для того, чтобы проиллюстрировать, как сюжетные сюжеты исчезают» ... что вы имеете в виду? когда я запускаю свой код, я получаю сюжетный сюжет ... – MLavoie
@MLavoie Раскомментируйте строку '# tags $ head (теги $ script (src = 'http: //code.jquery.com/jquery-2.1.4.js')), и вы увидите, что это замысловато исчезает (по крайней мере, в браузере R и в Chrome) –
См. мое решение. Есть ли что-нибудь еще, что вы ожидаете? –