Re-org examples into examples-shiny directory to work with shiny::runExample().

Modify README.Rmd to include an animated GIF and run commands.

Author: coatless

README.Rmd

@@ -61,3 +61,23 @@ server <- function(input, output) {
 shinyApp(ui, server)
 ```
 
+![](https://github.com/user-attachments/assets/c96aa063-e38c-4f80-ab88-c0a1fe090525)
+
+After installing the package, you can explore more examples of `shinytangle` by running:
+
+```r
+# Display a triangle and adjust its size with a,b,c sliders
+shiny::runExample("triangle-demo", package = "shinytangle")
+
+# Multi-text statement example
+shiny::runExample("text-statement-demo", package = "shinytangle")
+
+# Try out the README example
+shiny::runExample("readme-inline-demo", package = "shinytangle")
+
+# See a list of all examples:
+system.file("examples-shiny", package="shinytangle")
+```
+
+
+

README.md

@@ -49,3 +49,22 @@ server <- function(input, output) {
 
 shinyApp(ui, server)
 ```
+
+![](https://github.com/user-attachments/assets/c96aa063-e38c-4f80-ab88-c0a1fe090525)
+
+After installing the package, you can explore more examples of
+`shinytangle` by running:
+
+``` r
+# Display a triangle and adjust its size with a,b,c sliders
+shiny::runExample("triangle-demo", package = "shinytangle")
+
+# Multi-text statement example
+shiny::runExample("text-statement-demo", package = "shinytangle")
+
+# Try out the README example
+shiny::runExample("readme-inline-demo", package = "shinytangle")
+
+# See a list of all examples:
+system.file("examples-shiny", package="shinytangle")
+```

inst/examples-shiny/readme-inline-demo/app.R

@@ -0,0 +1,20 @@
+library(shiny)
+library(shinytangle)
+
+ui <- fluidPage(
+  titlePanel("shinytangle: Demo Inline"),
+  p(
+    "When you have", 
+    inlineNumericInput("amount", 5, min = 0, max = 10), 
+    "items, the total cost is",
+    inlineOutput("cost")
+  )
+)
+
+server <- function(input, output) {
+  output$cost <- renderInline({
+    input$amount * 9.99
+  })
+}
+
+shinyApp(ui, server)