You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
41 lines
978 B
41 lines
978 B
# Module to plot histogram using highcharter
|
|
|
|
histoUI<-function(id){
|
|
ns<-NS(id)
|
|
tagList(
|
|
selectizeInput(ns("selreve"), "Select", choices = c("self","other"), selected=c("self")),
|
|
highchartOutput(ns("histoplot"))
|
|
)
|
|
}
|
|
|
|
# Moduleserver
|
|
|
|
|
|
#Server
|
|
histoServer<-function(id, df, segment){
|
|
|
|
moduleServer(id, function(input, output, session){
|
|
|
|
output$histoplot<-renderHighchart({
|
|
summ.dat<- df |>
|
|
filter(Cluster==segment) |>
|
|
mutate(
|
|
self=Self.Purchase1+Self.Purchase2+Self.Purchase3,
|
|
other=Other.Purchase1+Other.Purchase2+Other.Purchase3
|
|
)
|
|
|
|
if(input$selreve=="self"){
|
|
revenue<-summ.dat$self
|
|
}
|
|
if(input$selreve=="other"){
|
|
revenue<-summ.dat$other
|
|
}
|
|
#create histogram
|
|
hchart(revenue) |>
|
|
hc_title(text = "Revenue Distribution") |>
|
|
hc_xAxis(title = list(text = "Revenue")) |>
|
|
hc_yAxis(title = list(text = "Count"))
|
|
})
|
|
})
|
|
|
|
}
|