# NOT RUN {
# When run in console, this will print the results of mean(1:10)
my_code <- decorate_code(text = 'mean(1:10)') %>% flair_funs()
# The object itself, when printed, previews your code with flair
# }
# NOT RUN {
my_code
# }
# NOT RUN {
# Objects defined by decorate_code are created in the current environment for later use.
my_code <- decorate_code('foo <- mean(1:10)')
foo + 5
# }
Run the code above in your browser using DataLab