How can I use the `td` command from the `tempdisagg` package to disaggregate monthly data into daily data frequency?

I have a monthly frequency data which I am trying to disaggregate into a daily frequency data. So I use the td command from the tempdisagg package in R using the code below:

 dat=ts(data[,2])
 result=td(dat~1, conversion = "average", to = "day", method = "chow-lin-maxlog")

Then I get the following error message:

 Error in td(dat ~ 1, conversion = "average", to = "day", method = "chow-lin-maxlog") : 'to' argument: unknown character string

The data I use for dat is as follows:

> dput(head(dat))
 c(82.47703009, 84.63094431, 70.00659987, 78.81135651, 74.749746,82.95638213)

So although this data dat is in monthly frequency, the start and end do not reflect this yet. In fact, the start date is 1/1997 and end date is 9/2019.

May I get help on disaggregating this monthly data dat into daily frequency data please?