inst/shiny/src/funnel/amfunnel_server.R

output$amfunnel1 <- rAmCharts::renderAmCharts({
  ## Data
  data('data_funnel')
  ## Plot
  amFunnel(data = data_funnel, inverse = TRUE, margin_right = 250)
})

output$code_amfunnel1 <- renderText({
  "
  ## Data
  data('data_funnel')
  ## Plot
  amFunnel(data = data_funnel, inverse = TRUE, margin_right = 250)
  "
})

output$amfunnel2 <- rAmCharts::renderAmCharts({
  ## Data
  data('data_funnel')
  ## Plot
  amFunnel(data = data_funnel, main = 'Reversed Pyramid', inverse = FALSE,
           label_side = 'left', margin_right = 200)
})

output$code_amfunnel2 <- renderText({
  "
  ## Data
  data('data_funnel')
  ## Plot
  amFunnel(data = data_funnel, main = 'Reversed Pyramid', inverse = FALSE,
           label_side = 'left', margin_right = 200)
  "
})

output$amfunnel3 <- rAmCharts::renderAmCharts({
  ## Data
  data('data_funnel')
  ## Plot
  amFunnel(data = data_funnel, neck_height = 30, neck_width = 40, margin_right = 250)
})

output$code_amfunnel3 <- renderText({
  "
  ## Data
  data('data_funnel')
  ## Plot
  amFunnel(data = data_funnel, neck_height = 30, neck_width = 40, margin_right = 250)
  "
})

Try the rAmCharts package in your browser

Any scripts or data that you put into this service are public.

rAmCharts documentation built on Dec. 6, 2019, 5:11 p.m.