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 |
|
| 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.
|
||||||
|
@ -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