Hi,
When trying to display code modal in below example, clicking "show code" displays a blank window with no code output. metaRender and renderPlot functions appear to work as plot displays fine, just no code generation when clicking "show code." Has anyone observed this behavior when using shinymeta, or have any guidance on how to further debug?
Thanks,
James
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)
Here is some sessionInfo()
sessionInfo()
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