# NOT RUN {
# Select a random font on the system
sys_fonts <- systemfonts::system_fonts()
random_font <- sys_fonts$family[sample(nrow(sys_fonts), 1)]
# Get the features
get_font_features(random_font)
# }
Run the code above in your browser using DataLab