Calculated Aging and captured it into a new column and finally used rpivottable but this new column is not showing

Question

library(readxl) library(dplyr) library(tidyverse) library(rpivotTable)

pendingSub <- read_excel("newfresh1.xlsx")

Adding pendingsub to a datafram