Creating week report contract and Modifying tweets histogram for empty tweets.

This commit is contained in:
ruidajo 2022-06-08 17:26:29 -05:00
parent 8f3c63dc71
commit 8d9a66e012
2 changed files with 23 additions and 0 deletions

View File

@ -3,6 +3,18 @@ exportTweetsHistogramWithBars: aNumberOfBars
| tweetsByTimeSpan subtotals tweetsHistogram diagram | | tweetsByTimeSpan subtotals tweetsHistogram diagram |
self tweets ifEmpty: [
tweetsHistogram := RSChart new.
tweetsHistogram extent: 800@200.
tweetsHistogram build.
tweetsHistogram canvas pdfExporter
zoomToShapes;
noFixedShapes;
fileName: (self folder / 'tweets-histogram.pdf')fullName;
export.
^ {self. 'self tweets is empty'}
].
tweetsByTimeSpan := self collectMessages: [ self tweets] byTimeSpanSplits: aNumberOfBars. tweetsByTimeSpan := self collectMessages: [ self tweets] byTimeSpanSplits: aNumberOfBars.
subtotals := tweetsByTimeSpan values collect: [ :collection | collection size ]. subtotals := tweetsByTimeSpan values collect: [ :collection | collection size ].
tweetsHistogram := RSChart new. tweetsHistogram := RSChart new.

View File

@ -0,0 +1,11 @@
accessing
exportWeekReportLatexBeginningAt: aDay
self config
at: 'reportingPeriod'
put: (Timespan starting: aDay asDateAndTime ending: ( aDay asDateAndTime + 7 days)).
self messages: self messages.
self
exportDefaultReport;
externalWordCloud.
^ self folder