builtin proxy: work todo
This commit is contained in:
parent
00bde78ee3
commit
5a3bb65723
|
@ -1,5 +1,5 @@
|
||||||
Package: apexcharter
|
Package: apexcharter
|
||||||
Version: 0.0.1.920
|
Version: 0.0.2.900
|
||||||
Title: Create Interactive Chart with the JavaScript 'ApexCharts' Library
|
Title: Create Interactive Chart with the JavaScript 'ApexCharts' Library
|
||||||
Description: Provides an 'htmlwidgets' interface to 'apexcharts.js'.
|
Description: Provides an 'htmlwidgets' interface to 'apexcharts.js'.
|
||||||
Authors@R: c(
|
Authors@R: c(
|
||||||
|
|
|
@ -0,0 +1,32 @@
|
||||||
|
|
||||||
|
|
||||||
|
library(shiny)
|
||||||
|
library(apexcharter)
|
||||||
|
library(dplyr)
|
||||||
|
|
||||||
|
data("mpg", package = "ggplot2")
|
||||||
|
|
||||||
|
function(input, output, session) {
|
||||||
|
|
||||||
|
data_r <- reactive({
|
||||||
|
mympg <- mpg %>%
|
||||||
|
filter(cty >= input$cty & year %in% input$year) %>%
|
||||||
|
count(manufacturer, year)
|
||||||
|
|
||||||
|
if (input$keepallx) {
|
||||||
|
mympg <- left_join(
|
||||||
|
x = mpg %>% distinct(manufacturer, year),
|
||||||
|
y = mympg,
|
||||||
|
by = c("manufacturer", "year")
|
||||||
|
)
|
||||||
|
}
|
||||||
|
|
||||||
|
mympg
|
||||||
|
})
|
||||||
|
|
||||||
|
|
||||||
|
output$chart <- renderApexchart({
|
||||||
|
apex(data = data_r(), type = "bar", mapping = aes(x = manufacturer, y = n, fill = year))
|
||||||
|
})
|
||||||
|
|
||||||
|
}
|
|
@ -0,0 +1,40 @@
|
||||||
|
|
||||||
|
|
||||||
|
library(shiny)
|
||||||
|
library(apexcharter)
|
||||||
|
|
||||||
|
|
||||||
|
fluidPage(
|
||||||
|
tags$h2("Update an existing chart"),
|
||||||
|
fluidRow(
|
||||||
|
column(
|
||||||
|
width = 4,
|
||||||
|
selectizeInput(
|
||||||
|
inputId = "year",
|
||||||
|
label = "year :",
|
||||||
|
choices = c("1999", "2008"),
|
||||||
|
selected = "1999",
|
||||||
|
multiple = TRUE,
|
||||||
|
options = list('plugins' = list('remove_button'))
|
||||||
|
),
|
||||||
|
sliderInput(
|
||||||
|
inputId = "cty",
|
||||||
|
label = "cty >= x :",
|
||||||
|
min = 9,
|
||||||
|
max = 35,
|
||||||
|
value = 9
|
||||||
|
),
|
||||||
|
checkboxInput(
|
||||||
|
inputId = "keepallx",
|
||||||
|
label = "Keep all x",
|
||||||
|
value = FALSE
|
||||||
|
)
|
||||||
|
),
|
||||||
|
column(
|
||||||
|
width = 8,
|
||||||
|
apexchartOutput(outputId = "chart")
|
||||||
|
)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
||||||
|
|
|
@ -7,6 +7,7 @@ HTMLWidgets.widget({
|
||||||
factory: function(el, width, height) {
|
factory: function(el, width, height) {
|
||||||
|
|
||||||
var ax_opts, chart;
|
var ax_opts, chart;
|
||||||
|
var apexchart = null;
|
||||||
|
|
||||||
return {
|
return {
|
||||||
|
|
||||||
|
@ -23,9 +24,14 @@ HTMLWidgets.widget({
|
||||||
ax_opts.chart.width = width;
|
ax_opts.chart.width = width;
|
||||||
ax_opts.chart.height = height;
|
ax_opts.chart.height = height;
|
||||||
|
|
||||||
// Generate chart
|
// Generate or update chart
|
||||||
chart = new ApexCharts(document.querySelector("#" + el.id), ax_opts);
|
if (apexchart === null) {
|
||||||
chart.render();
|
apexchart = new ApexCharts(document.querySelector("#" + el.id), ax_opts);
|
||||||
|
apexchart.render();
|
||||||
|
} else {
|
||||||
|
apexchart.updateSeries(ax_opts.series);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
},
|
},
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue