При попытке отобразить модальный код в приведенном ниже примере, при нажатии «Показать код» отображается пустое окно без вывода кода. Функции metaRender и renderPlot работают нормально, поскольку изображение отображается нормально, при нажатии кнопки «показать код» генерация кода не выполняется, вместо ожидаемого вывода hist(diamonds$carat)
появляется просто пустое окно. Кто-нибудь наблюдал такое поведение при использовании brightmeta, или у вас есть какие-либо рекомендации по дальнейшей отладке?
library(shiny)
library(shinymeta)
library(ggplot2)
library(shinyAce)
ui <- fluidPage(
outputCodeButton(plotOutput("p1"))
)
server <- function(input, output) {
output$p1 <- metaRender(renderPlot, {
hist(diamonds$carat)
})
observeEvent(input$p1_output_code, {
code <- expandChain(output$p1())
displayCodeModal(code)
})
}
shinyApp(ui, server)
А вот некоторая информация о сеансе:
R version 3.6.1 (2019-07-05)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)
Matrix products: default
locale:
[1] LC_COLLATE=English_United States.1252 LC_CTYPE=English_United States.1252
[3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C
[5] LC_TIME=English_United States.1252
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] shinyAce_0.4.1 shinymeta_0.2.0 ggplot2_3.3.0 shiny_1.4.0.9002