Package 'ggplotAssist'

A shiny app for learn ggplot2

Description

A shiny app for learn ggplot2

Usage

ggplotAssist(df = NULL, viewer = "browser")

Arguments

df	A tibble or a tbl_df or a data.frame to manipulate
viewer	Specify where the gadget should be displayed. Possible choices are c("dialog","browser","pane")

Value

An R code for ggplot

Examples

library(tidyverse)
library(rstudioapi)
library(miniUI)
library(moonBook)
library(shinyAce)
library(ggthemes)
library(shiny)
library(stringr)
library(editData)
library(shinyWidgets)
library(gcookbook)
library(shiny)
# Only run examples in interactive R sessions
if (interactive()) {
    result<-ggplotAssist(mtcars)
    result
}

---

side-by-side selectizeInput

Description

side-by-side selectizeInput

Usage

selectizeInput3(..., width = 100)

Arguments

...	Further arguments to be passed to selectizeInput
width	Input width in pixel

Examples

library(shiny)
# Only run examples in interactive R sessions
if (interactive()) {
  ui <- fluidPage(
         selectizeInput3("color", "color", choices=colors())
    )
    server <- function(input, output) {

    }
    shinyApp(ui, server)
}

---

Elongate data.frame with column split by comma

Description

Elongate data.frame with column split by comma

Usage

splitData(df, colname)

Arguments

df	a data.frame
colname	column name

Value

An elongated data.frame

---

Create side-by side textAreaInput with disabled spell check

Description

Create side-by side textAreaInput with disabled spell check

Usage

textAreaInput4(inputId, label, value = "", bg = NULL, width = "100%",
  ...)

Arguments

inputId	The input slot that will be used to access the value.
label	Display label for the control, or NULL for no label.
value	Initial value.
bg	backgroung color
width	The width of the input in pixel
...	arguments to be passed to textInput

Examples

library(shiny)
# Only run examples in interactive R sessions
if (interactive()) {
     ui <- fluidPage(
          textAreaInput4("Code","Code","")
     )
     server <- function(input, output) {
          
     }
     shinyApp(ui, server)
}

---

Server function of textFunction shiny module

Description

Server function of textFunction shiny module

Usage

textFunction(input, output, session, argList = reactive(argList),
  editCode = reactive(TRUE), settingData = reactive(NULL))

Arguments

input	input
output	output
session	session
argList	A list containing options
editCode	Logical. Wheter or not edit initial R code
settingData	A data.frame contains information about functions

---

UI of textFunction shiny module

Description

UI of textFunction shiny module

Usage

textFunctionInput(id)

Arguments

id

A string

Examples

library(ggplotAssist)
library(shiny)
# Only run examples in interactive R sessions
if(interactive()){
ui=fluidPage(
   textFunctionInput("text"),
   textOutput("text")
)
server=function(input,output,session){
   rv=reactiveValues()
   rawData=read.csv("data-raw/setting.csv",stringsAsFactors = FALSE)
   settingData=splitData(rawData,"setting")
   rv$argList<-list(label="text",mode="text",value="element_text()",choices=NULL,width=200,
                    bg="lightcyan",placeholder="")
   result=callModule(textFunction,"text",argList=reactive(rv$argList),
                     editCode=reactive(TRUE),settingData=reactive(settingData))
   output$text=renderText({
       result()
   })
}
shinyApp(ui,server)
}

---

Create side-by side textInput with disabled spell check

Description

Create side-by side textInput with disabled spell check

Usage

textInput4(inputId, label, value = "", width = 100, bg = NULL, ...)

Arguments

inputId	The input slot that will be used to access the value.
label	Display label for the control, or NULL for no label.
value	Initial value.
width	The width of the input in pixel
bg	backgroung color
...	arguments to be passed to textInput

Examples

library(shiny)
# Only run examples in interactive R sessions
if (interactive()) {
     ui <- fluidPage(
          textInput4("id", "id", ""),
          textInput4("name","name","")
     )
     server <- function(input, output) {
          
     }
     shinyApp(ui, server)
}

---

Create side-by side uiOutput

Description

Create side-by side uiOutput

Usage

uiOutput3(...)

Arguments

...	arguments to be passed to uiOutput

Examples

library(shiny)
# Only run examples in interactive R sessions
if (interactive()) {
     ui <- fluidPage(
          textInput4("name","name",""),
          uiOutput3("test")
     )
     server <- function(input, output) {
          
     }
     shinyApp(ui, server)
}

---