R/cake_round.R

In randallhelms/cakeR: Calculate cake ingredients and prices

cake_round <- function(d,h,filling,fondant,type) {

	require(dplyr)
	require(googlesheets)
	require(tidyr)
	require(stringr)
	require(tibble)
	
	ingredients <- cake_ingredients_round(d,h,type)
	
	filling <- cake_filling_round(d,h,filling) 
	
	fondant <- cake_fondant_round(d,h,fondant)
	
	dimensions <- tibble(d = d, h = h)
	
	cake_list <- list(ingredients,filling,fondant, dimensions)
	
	return(cake_list)
	

}