renamed run_demo_*() funs

NAMESPACE

@@ -56,9 +56,9 @@ export(pie_opts)
 export(radialBar_opts)
 export(renderApexchart)
 export(renderSparkBox)
-export(run_input_demo)
-export(run_sparkbox_demo)
-export(run_sync_demo)
+export(run_demo_input)
+export(run_demo_sparkbox)
+export(run_demo_sync)
 export(set_input_click)
 export(set_input_selection)
 export(set_input_zoom)

R/shiny-input.R

@@ -180,12 +180,12 @@ set_input_selection <- function(ax, inputId, type = c("x", "xy", "y"),
 #' @examples
 #' if (interactive()) {
 #' 
-#'   run_input_demo("click")
-#'   run_input_demo("zoom")
-#'   run_input_demo("selection")
+#'   run_demo_input("click")
+#'   run_demo_input("zoom")
+#'   run_demo_input("selection")
 #' 
 #' }
-run_input_demo <- function(example = c("click", "zoom", "selection")) {
+run_demo_input <- function(example = c("click", "zoom", "selection")) {
   example <- match.arg(example)
   shiny::shinyAppFile(
     appFile = system.file("examples-input", example, "app.R", package = "apexcharter"),
@@ -205,10 +205,10 @@ run_input_demo <- function(example = c("click", "zoom", "selection")) {
 #' @examples
 #' if (interactive()) {
 #' 
-#'   run_sync_demo()
+#'   run_demo_sync()
 #' 
 #' }
-run_sync_demo <- function() {
+run_demo_sync <- function() {
   shiny::shinyAppFile(
     appFile = system.file("example-sync", "app.R", package = "apexcharter"),
     options = list("display.mode" = "showcase")
@@ -228,7 +228,7 @@ run_sync_demo <- function() {
 #'   run_sparkbox_demo()
 #' 
 #' }
-run_sparkbox_demo <- function() {
+run_demo_sparkbox <- function() {
   shiny::shinyAppFile(
     appFile = system.file("example-spark", "app.R", package = "apexcharter"),
     options = list("display.mode" = "showcase")

man/run_demo_input.Rd

@@ -1,10 +1,10 @@
 % Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/shiny-input.R
-\name{run_input_demo}
-\alias{run_input_demo}
+\name{run_demo_input}
+\alias{run_demo_input}
 \title{Run Shiny input events examples}
 \usage{
-run_input_demo(example = c("click", "zoom", "selection"))
+run_demo_input(example = c("click", "zoom", "selection"))
 }
 \arguments{
 \item{example}{Name of the example.}
@@ -15,9 +15,9 @@ Run Shiny input events examples
 \examples{
 if (interactive()) {
 
-  run_input_demo("click")
-  run_input_demo("zoom")
-  run_input_demo("selection")
+  run_demo_input("click")
+  run_demo_input("zoom")
+  run_demo_input("selection")
 
 }
 }

man/run_demo_sparkbox.Rd

@@ -1,10 +1,10 @@
 % Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/shiny-input.R
-\name{run_sparkbox_demo}
-\alias{run_sparkbox_demo}
+\name{run_demo_sparkbox}
+\alias{run_demo_sparkbox}
 \title{Run Shiny spark boxes example}
 \usage{
-run_sparkbox_demo()
+run_demo_sparkbox()
 }
 \description{
 Run Shiny spark boxes example

man/run_demo_sync.Rd

@@ -1,10 +1,10 @@
 % Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/shiny-input.R
-\name{run_sync_demo}
-\alias{run_sync_demo}
+\name{run_demo_sync}
+\alias{run_demo_sync}
 \title{Run Shiny synchronization example}
 \usage{
-run_sync_demo()
+run_demo_sync()
 }
 \description{
 Run Shiny synchronization example
@@ -12,7 +12,7 @@ Run Shiny synchronization example
 \examples{
 if (interactive()) {
 
-  run_sync_demo()
+  run_demo_sync()
 
 }
 }