r BQUOTE Subscrito
# Use brackets to subscrpt:
bquote(text[sub])
2Bowls
# Use brackets to subscrpt:
bquote(text[sub])