From 9481c21d435f351f2ee4b4da970fb0ef7a3f4ed0 Mon Sep 17 00:00:00 2001
From: pvictor <perrier.victor@gmail.com>
Date: Mon, 27 Jul 2020 09:26:28 +0200
Subject: [PATCH] renamed run_demo_*() funs

---
 NAMESPACE                                          |  6 +++---
 R/shiny-input.R                                    | 14 +++++++-------
 man/{run_input_demo.Rd => run_demo_input.Rd}       | 12 ++++++------
 man/{run_sparkbox_demo.Rd => run_demo_sparkbox.Rd} |  6 +++---
 man/{run_sync_demo.Rd => run_demo_sync.Rd}         |  8 ++++----
 5 files changed, 23 insertions(+), 23 deletions(-)
 rename man/{run_input_demo.Rd => run_demo_input.Rd} (60%)
 rename man/{run_sparkbox_demo.Rd => run_demo_sparkbox.Rd} (77%)
 rename man/{run_sync_demo.Rd => run_demo_sync.Rd} (75%)

diff --git a/NAMESPACE b/NAMESPACE
index 3fa2164..e25acbd 100644
--- a/NAMESPACE
+++ b/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)
diff --git a/R/shiny-input.R b/R/shiny-input.R
index e65c646..ff4f1c5 100644
--- a/R/shiny-input.R
+++ b/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")
diff --git a/man/run_input_demo.Rd b/man/run_demo_input.Rd
similarity index 60%
rename from man/run_input_demo.Rd
rename to man/run_demo_input.Rd
index a819ff2..d2c6c8c 100644
--- a/man/run_input_demo.Rd
+++ b/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")
 
 }
 }
diff --git a/man/run_sparkbox_demo.Rd b/man/run_demo_sparkbox.Rd
similarity index 77%
rename from man/run_sparkbox_demo.Rd
rename to man/run_demo_sparkbox.Rd
index 3b6f3c5..645cfd0 100644
--- a/man/run_sparkbox_demo.Rd
+++ b/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
diff --git a/man/run_sync_demo.Rd b/man/run_demo_sync.Rd
similarity index 75%
rename from man/run_sync_demo.Rd
rename to man/run_demo_sync.Rd
index 10e6eb6..7008788 100644
--- a/man/run_sync_demo.Rd
+++ b/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()
 
 }
 }