Call this function from inside a .R file in RStudio to insert the standard TNTP header into your active script.
header_tntp()
nothing