# NOT RUN {
# Get the default "sans" family
sans <- match_font("sans")$path
sans <- system_fonts()$family[system_fonts()$path == sans][1]
# Register a variant of it:
register_variant(
"sans_ligature",
sans,
features = font_feature(ligatures = "discretionary")
)
registry_fonts()
# clean up
clear_registry()
# }
Run the code above in your browser using DataLab