{
# Set brand theme
old_wd <- getwd()
setwd(tempdir()) # Change to temp directory for example
brand_init()
get_brand_public()
brand_set_ggplot()
# Create some plots with brand theme...
# Reset to original theme
brand_reset_ggplot()
setwd(old_wd) # Restore original working directory
}
Run the code above in your browser using DataLab