We will need
library("shiny")
The overview figure below is based and makes reference to the written tutorial.
## in ui.R
shinyUI(fluidPage(...))
## in server.R
shinyServer(function(input, ouput) {
...
})
runApp("app-dir")
ui <- fluidPage(...)
server <- function(input, output) { ... }
app <- list(ui = ui, server = server)
runApp(app)
- Share the code file(s) and
runApp
runUrl
runGitHub
runGist
- shinyapps
- Shiny server
Read and understand the code of the apps above and run them locally. Then, try to update them to replace of add some widgets.
plotOutput("pca",
hover = "hover",
click = "click",
dblclick = "dblClick",
brush = brushOpts(
id = "brush",
resetOnNew = TRUE))
Example here.
Push your shiny apps online with shinyapps.