demo/apps/basic/ui.r

library(ggvis)


fluidPage(sidebarLayout(
  sidebarPanel(
    sliderInput("n", "Number of points", min = 1, max = nrow(mtcars),
                value = 10, step = 1),
    uiOutput("plot_ui")
  ),
  mainPanel(
    ggvisOutput("plot"),
    tableOutput("mtc_table")
  )
))
rstudio/ggvis documentation built on Feb. 5, 2024, 9:13 p.m.