Format Function In R Studio