Is there a workaround for this FindPeaks bug?
In[]:=
ts=TimeSeries
Time:
31 Dec 2007
to
30 Apr 2016
Data points: 101
;
In[]:=
peaks=FindPeaks@ts
TemporalData`ReplaceValuesTimes
::rpvts
:New values {{344.565}} and times {{3670963200}} result in invalid TemporalData object.
​
AbsoluteTime
:Argument 51 cannot be interpreted as a date or time input.
AbsoluteTime
:Argument 51 cannot be interpreted as a date or time input.
AbsoluteTime
:Argument 51 cannot be interpreted as a date or time input.
General
:Further output of AbsoluteTime::arg will be suppressed during this calculation.
FindPeaks
:The argument TimeSeries
Time:
00:00:00.000GMT-3
to DateObject[Max[-∞,TemporalData`InAbsoluteTime[AbsoluteTime[51]]],Instant,DateFormat{Hour,:,Minute,:,Second,.,Millisecond},TimeZoneAutomatic]
Data points: 51
 at position 1 is not a consistent list of real values.
Out[]=
FindPeaksTimeSeries
Time:
31 Dec 2007
to
30 Apr 2016
Data points: 101

In[]:=
troughs=-FindPeaks[-ts]
TemporalData`ReplaceValuesTimes
::rpvts
:New values {{-99.3919}} and times {{3408048000}} result in invalid TemporalData object.
​
AbsoluteTime
:Argument 51 cannot be interpreted as a date or time input.
AbsoluteTime
:Argument 51 cannot be interpreted as a date or time input.
AbsoluteTime
:Argument 51 cannot be interpreted as a date or time input.
General
:Further output of AbsoluteTime::arg will be suppressed during this calculation.
FindPeaks
:The argument TimeSeries
Time:
00:00:00.000GMT-3
to DateObject[Max[-∞,TemporalData`InAbsoluteTime[AbsoluteTime[51]]],Instant,DateFormat{Hour,:,Minute,:,Second,.,Millisecond},TimeZoneAutomatic]
Data points: 51
 at position 1 is not a consistent list of real values.
Out[]=
-FindPeaksTimeSeries
Time:
31 Dec 2007
to
30 Apr 2016
Data points: 101
