These test deploying one project to multiple targets having different types,
confirming deployApp()
support for its appMode
.
Create a new project.
r
usethis::create_project("~/Desktop/appmode-lies")
Populate that project with content.
```r writeLines(c( "shinyApp(ui = fluidPage('Shiny lying liars lie.'), server = function(input, output){})" ), "app.R") writeLines(c( "", "
Deploy this content in a variety of ways.
```r
account <- "
rsconnect::deployApp( appTitle = "lying: inference", appFiles = c("app.R", "index.html", "plumber.R", "report.Rmd"), account = account, server = server )
rsconnect::deployApp( appName = "appmode-lies-plumber", appTitle = "lying: plumber", appFiles = c("app.R", "index.html", "plumber.R", "report.Rmd"), appMode = "api", account = account, server = server )
rsconnect::deployApp( appName = "appmode-lies-shiny", appTitle = "lying: shiny", appFiles = c("app.R", "index.html", "plumber.R", "report.Rmd"), appMode = "shiny", account = account, server = server )
rsconnect::deployApp( appName = "appmode-lies-rmarkdown", appTitle = "lying: rmarkdown", appFiles = c("app.R", "index.html", "plumber.R", "report.Rmd"), appMode = "rmd-static", account = account, server = server )
rsconnect::deployApp( appName = "appmode-lies-static", appTitle = "lying: static", appFiles = c("app.R", "index.html", "plumber.R", "report.Rmd"), appMode = "static", account = account, server = server ) ```
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.