## To get start, end and sequence of this quarter
thisquarter <- this_quarter()
## To get vector of date sequences
this_quarter(part = "sequence")
this_quarter()$sequence
seq(thisquarter)
## Get number of days of this quarter
day_nums <- this_quarter(part = "length")
this_quarter()$length
length(thisquarter)
Run the code above in your browser using DataLab