Creating week report contract and Modifying tweets histogram for empty tweets.
This commit is contained in:
parent
8f3c63dc71
commit
8d9a66e012
@ -3,6 +3,18 @@ exportTweetsHistogramWithBars: aNumberOfBars
|
||||
|
||||
| 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.
|
||||
subtotals := tweetsByTimeSpan values collect: [ :collection | collection size ].
|
||||
tweetsHistogram := RSChart new.
|
||||
|
@ -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
|
Loading…
Reference in New Issue
Block a user