Nothing
################################################################################
## order-one-pizza Workflow
################################################################################
# Steps -------------------------------------------------------------------
issue_new_order <- function(session){
generate_uid <- uuid::UUIDgenerate
session$customer_order <- Order$new(uid = generate_uid())
session$pizza <- Pizza$new(uid = generate_uid())
session$customer_order$add_pizza(Pizza = session$pizza)
return(session)
}
order_pizza <- function(session){
session$pizza$select_size("medium")
session$pizza$add_topping(name = "olives", side = "both")
session$pizza$add_topping(name = "anchovy", side = "right")
session$pizza$remove_topping(name = "olives")
session$pizza$review()
return(session)
}
commit_order <- function(session){
session$customer_order$commit()
return(session)
}
# Workflow ----------------------------------------------------------------
session <- new.env()
session %>%
issue_new_order() %>%
order_pizza() %>%
commit_order()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.