让我们考虑一个简单的r shiny
应用程序
# Global variables can go here
n <- 200
# Define the UI
ui <- bootstrapPage(
numericInput('n', 'Number of obs', n),
plotOutput('plot')
)
# Define the server code
server <- function(input, output) {
output$plot <- renderPlot({
hist(runif(input$n))
})
}
# Return a Shiny app object
shinyApp(ui = ui, server = server)
我想将此应用程序实现到我的(Microsoft)PowerPoint演示文稿中,而不会失去其交互性。我尝试了一些东西,但收效甚微: