Translated Python(?) code from get_timeseries() for start_date/end_date = NULL

[naturewillconfess]

Original code used datetime.now(tzlocal()) which is not a thing in R, AFAIU. Changed it to Sys.time() and formatted it.