3 teszt

library(knitr)
knitr::include_url("https://yihui.shinyapps.io/miniUI/", height = "600px")

knitr::include_url("https://bookdown.org/yihui/bookdown/web-pages-and-shiny-apps.html",height="400px")

knitr::include_url("https://slezakmartin0.shinyapps.io/teszt/",height="1000px")

library(DT)
DT::datatable(iris)

https://bookdown.org/yihui/rmarkdown/shiny-embedded.html 19.3.1 Inline applications This example uses an inline definition:

library(shiny)
shinyApp(

  ui = fluidPage(
    selectInput("region", "Region:",
                choices = colnames(WorldPhones)),
    plotOutput("phonePlot")
  ),

  server = function(input, output) {
    output$phonePlot = renderPlot({
      barplot(WorldPhones[,input$region]*1000,
              ylab = "Number of Telephones", xlab = "Year")
    })
  },

  options = list(height = 500)
)

https://bookdown.org/yihui/rmarkdown/shiny-embedded.html 19.3.2 External applications This example embeds a Shiny application defined in another directory: