72 lines
1.5 KiB
R
72 lines
1.5 KiB
R
% Generated by roxygen2: do not edit by hand
|
|
% Please edit documentation in R/proxy.R
|
|
\name{ax_proxy_options}
|
|
\alias{ax_proxy_options}
|
|
\title{Proxy for updating options}
|
|
\usage{
|
|
ax_proxy_options(proxy, options)
|
|
}
|
|
\arguments{
|
|
\item{proxy}{A \code{apexchartProxy} \code{htmlwidget} object.}
|
|
|
|
\item{options}{New options to set.}
|
|
}
|
|
\description{
|
|
Allows you to update the configuration object.
|
|
}
|
|
\examples{
|
|
|
|
if (interactive()) {
|
|
library(shiny)
|
|
|
|
ui <- fluidPage(
|
|
fluidRow(
|
|
column(
|
|
width = 8, offset = 2,
|
|
tags$h2("Update options"),
|
|
apexchartOutput(outputId = "chart"),
|
|
checkboxInput(
|
|
inputId = "show_label_xaxis",
|
|
label = "Show x-axis labels"
|
|
),
|
|
textInput(
|
|
inputId = "yaxis_title",
|
|
label = "Y-axis title"
|
|
)
|
|
)
|
|
)
|
|
)
|
|
server <- function(input, output, session) {
|
|
|
|
output$chart <- renderApexchart({
|
|
apexchart() \%>\%
|
|
ax_chart(type = "bar") \%>\%
|
|
ax_series(list(
|
|
name = "Example",
|
|
data = c(23, 43, 76, 31)
|
|
)) \%>\%
|
|
ax_xaxis(
|
|
categories = c("Label A", "Label B",
|
|
"Label C", "Label D")
|
|
)
|
|
})
|
|
|
|
observe({
|
|
apexchartProxy("chart") \%>\%
|
|
ax_proxy_options(list(
|
|
xaxis = list(
|
|
labels = list(show = input$show_label_xaxis)
|
|
),
|
|
yaxis = list(
|
|
title = list(text = input$yaxis_title)
|
|
)
|
|
))
|
|
})
|
|
|
|
}
|
|
|
|
shinyApp(ui, server)
|
|
}
|
|
|
|
}
|