utils::globalVariables(c(".", ".data", ".env"))
units_of_measures <- c("grams", "ounces")
coffee_producting_countries <-
c(
'Angola',
'Bolivia',
'Brazil',
'Burundi',
'Cameroon',
'Central African Republic',
'China',
'Colombia',
'Costa Rica',
'Cuba',
'Democratic Rep. of the Congo',
'Dominican Republic',
'Ecuador',
'El Salvador',
'Ethiopia',
'Gabon',
'Ghana',
'Guatemala',
'Guinea',
'Haiti',
'Honduras',
'India',
'Indonesia',
'Ivory Coast',
'Jamaica',
'Kenya',
'Laos',
'Liberia',
'Madagascar',
'Malawi',
'Mexico',
'Nicaragua',
'Nigeria',
'Panama',
'Papua New Guinea',
'Paraguay',
'Peru',
'Philippines',
'Rwanda',
'Sierra Leone',
'Tanzania',
'Thailand',
'Timor Leste',
'Togo',
'Trinidad and Tobago',
'Uganda',
'Venezuela',
'Vietnam',
'Yemen',
'Zambia',
'Zimbabwe',
'Other'
)
coffee_roasting_machines <- c("SR500", "SR540", "SR700", "SR800")
processing_methods <-
c(
"Anaerobic Fermentation",
"Honey",
"Natural/Dry",
"Pulped Natural",
"Semi-Washed/Wet-Hulled",
"Washed"
)
coffee_varieties_arabica <-
c(
"Typica",
"Bourbon",
"Mundo Novo",
"Caturra",
"Catuai",
"Maragogype",
"SL-28",
"SL-34",
"Geisha",
"Pacas",
"Villa Sarchi",
"Pacamara",
"Kent",
"S795"
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.