bulmaPricingtable: bulma pricing table

Description Usage Arguments Author(s) Examples

View source: R/bulma-pricingtable.R

Description

Create an horizontal or vertical pricing table https://wikiki.github.io/components/pricingtable/.

Usage

1
bulmaPricingtable(..., horizontal = FALSE)

Arguments

...

Slot for bulmaPricingPlan.

horizontal

FALSE by default. Whether to display the table vertically or horizontally.

Author(s)

David Granjon, dgranjon@ymail.com

Examples

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
if (interactive()) {
 library(shiny)

 ui <- bulmaPage(
  bulmaContainer(
   shiny::column(width = 12, align = "center",
    bulmaTitle("Bulma Vertical Pricing Table")
    ),

    br(), br(),

    bulmaPricingtable(
      horizontal = FALSE,
      bulmaPricingPlan(
        active = FALSE, color = NULL, plan_title = "Starter",
        plan_price = 20, plan_currency = "$",
        plan_period = "/month", button_status = "disabled",
        button_name = "Current plan",
        bulmaPricingPlanItem(name = "20GB Storage"),
        bulmaPricingPlanItem(name = "10 domains"),
        bulmaPricingPlanItem(name = "-"),
        bulmaPricingPlanItem(name = "-")
      ),
      bulmaPricingPlan(
        active = FALSE, color = "warning", plan_title = "Startups",
        plan_price = 40, plan_currency = "$",
        plan_period = "/month", button_status = NULL,
        button_name = "Choose",
        bulmaPricingPlanItem(name = "20GB Storage"),
        bulmaPricingPlanItem(name = "25 domains"),
        bulmaPricingPlanItem(name = "1TB Bandwidth"),
        bulmaPricingPlanItem(name = "-")
      ),
      bulmaPricingPlan(
        active = TRUE, color = NULL, plan_title = "Growing Team",
        plan_price = 60, plan_currency = "$",
        plan_period = "/month", button_status = NULL,
        button_name = "Choose",
        bulmaPricingPlanItem(name = "200GB Storage"),
        bulmaPricingPlanItem(name = "50 domains"),
        bulmaPricingPlanItem(name = "1TB Bandwidth"),
        bulmaPricingPlanItem(name = "100 Email Boxes")
      ),
      bulmaPricingPlan(
        active = FALSE, color = "danger", plan_title = "Enterprise",
        plan_price = 100, plan_currency = "$",
        plan_period = "/month", button_status = NULL,
        button_name = "Choose",
        bulmaPricingPlanItem(name = "200GB Storage"),
        bulmaPricingPlanItem(name = "50 domains"),
        bulmaPricingPlanItem(name = "1TB Bandwidth"),
        bulmaPricingPlanItem(name = "1000 Email Boxes")
      )
    ),

    br(), br(),

    bulmaDivider(),

    shiny::column(width = 12, align = "center",
                  bulmaTitle("Bulma Horizontal Pricing Table")
    ),

    br(), br(),

    bulmaPricingtable(
      horizontal = TRUE,
      bulmaPricingPlan(
        active = FALSE, color = NULL, plan_title = "Starter",
        plan_price = 20, plan_currency = "$",
        plan_period = "/month", button_status = "disabled",
        button_name = "Current plan",
        bulmaPricingPlanItem(name = "20GB Storage"),
        bulmaPricingPlanItem(name = "10 domains"),
        bulmaPricingPlanItem(name = "-"),
        bulmaPricingPlanItem(name = "-")
      ),
      bulmaPricingPlan(
        active = FALSE, color = "warning", plan_title = "Startups",
        plan_price = 40, plan_currency = "$",
        plan_period = "/month", button_status = NULL,
        button_name = "Choose",
        bulmaPricingPlanItem(name = "20GB Storage"),
        bulmaPricingPlanItem(name = "25 domains"),
        bulmaPricingPlanItem(name = "1TB Bandwidth"),
        bulmaPricingPlanItem(name = "-")
      ),
      bulmaPricingPlan(
        active = TRUE, color = NULL, plan_title = "Growing Team",
        plan_price = 60, plan_currency = "$",
        plan_period = "/month", button_status = NULL,
        button_name = "Choose",
        bulmaPricingPlanItem(name = "200GB Storage"),
        bulmaPricingPlanItem(name = "50 domains"),
        bulmaPricingPlanItem(name = "1TB Bandwidth"),
        bulmaPricingPlanItem(name = "100 Email Boxes")
      ),
      bulmaPricingPlan(
        active = FALSE, color = "danger", plan_title = "Enterprise",
        plan_price = 100, plan_currency = "$",
        plan_period = "/month", button_status = NULL,
        button_name = "Choose",
        bulmaPricingPlanItem(name = "200GB Storage"),
        bulmaPricingPlanItem(name = "50 domains"),
        bulmaPricingPlanItem(name = "1TB Bandwidth"),
        bulmaPricingPlanItem(name = "1000 Email Boxes")
      )
    )
  )
 )

 server <- function(input, output, session) {

 }

 shinyApp(ui = ui, server = server)

}

JohnCoene/shinybulma documentation built on Oct. 17, 2020, 8:57 p.m.