Add a statistics page to the panel

The most read, reads per language with a daily chart, and published content
nobody opened, each compared with the period before.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>

app/Filament/Charts/ViewsByLanguageChart.php

@@ -0,0 +1,52 @@
+<?php
+
+declare(strict_types=1);
+
+namespace App\Filament\Charts;
+
+use App\Support\ViewStats;
+use Filament\Widgets\ChartWidget;
+
+/**
+ * Reads per day, one line per language. Lives outside `Filament/Widgets` so
+ * the dashboard does not discover it: it belongs to the statistics page,
+ * which says which period to draw.
+ */
+class ViewsByLanguageChart extends ChartWidget
+{
+    public int $days = 30;
+
+    protected int|string|array $columnSpan = 'full';
+
+    protected ?string $maxHeight = '280px';
+
+    public function getHeading(): string
+    {
+        return __('panel.statistics.daily');
+    }
+
+    protected function getType(): string
+    {
+        return 'line';
+    }
+
+    protected function getData(): array
+    {
+        $daily = (new ViewStats($this->days))->daily();
+        $colors = ['#f59e0b', '#3b82f6', '#10b981', '#ef4444', '#8b5cf6'];
+
+        return [
+            'labels' => $daily['labels'],
+            'datasets' => collect($daily['series'])
+                ->values()
+                ->map(fn (array $data, int $i) => [
+                    'label' => config('locales.supported.'.array_keys($daily['series'])[$i].'.native'),
+                    'data' => $data,
+                    'borderColor' => $colors[$i % count($colors)],
+                    'backgroundColor' => $colors[$i % count($colors)],
+                    'tension' => 0.3,
+                ])
+                ->all(),
+        ];
+    }
+}

app/Filament/Pages/Statistics.php

@@ -0,0 +1,84 @@
+<?php
+
+declare(strict_types=1);
+
+namespace App\Filament\Pages;
+
+use App\Support\ViewStats;
+use BackedEnum;
+use Filament\Pages\Page as FilamentPage;
+use Filament\Support\Icons\Heroicon;
+use Illuminate\Contracts\Support\Htmlable;
+use Illuminate\Support\Facades\Auth;
+use Livewire\Attributes\Url;
+use UnitEnum;
+
+/**
+ * What people read: the most read, how each language is doing, and what is
+ * on the site that nobody opened. Counts only — what the frontend reports is
+ * a daily total per record and language, with nothing about the person.
+ */
+class Statistics extends FilamentPage
+{
+    public const PERIODS = [7, 30, 90];
+
+    protected string $view = 'filament.pages.statistics';
+
+    protected static string|BackedEnum|null $navigationIcon = Heroicon::OutlinedChartBar;
+
+    protected static ?int $navigationSort = 6;
+
+    #[Url]
+    public int $days = 30;
+
+    public function mount(): void
+    {
+        if (! in_array($this->days, self::PERIODS, true)) {
+            $this->days = 30;
+        }
+    }
+
+    public function updatedDays(): void
+    {
+        $this->mount();
+    }
+
+    public static function canAccess(): bool
+    {
+        return Auth::user()?->can('panel.access') ?? false;
+    }
+
+    public static function getNavigationGroup(): string|UnitEnum|null
+    {
+        return __('panel.groups.content');
+    }
+
+    public static function getNavigationLabel(): string
+    {
+        return __('panel.statistics.title');
+    }
+
+    public function getTitle(): string|Htmlable
+    {
+        return __('panel.statistics.title');
+    }
+
+    public function stats(): ViewStats
+    {
+        return new ViewStats($this->days);
+    }
+
+    /**
+     * "+52 %", "−10 %", or "new" when there was nothing to compare with.
+     */
+    public function change(int $now, int $before): string
+    {
+        if ($before === 0) {
+            return $now > 0 ? __('panel.statistics.new') : '—';
+        }
+
+        $percent = (int) round(($now - $before) * 100 / $before);
+
+        return ($percent > 0 ? '+' : ($percent < 0 ? '−' : '')).abs($percent).' %';
+    }
+}

app/Support/ViewStats.php

@@ -0,0 +1,192 @@
+<?php
+
+declare(strict_types=1);
+
+namespace App\Support;
+
+use App\Filament\Resources\Calls\CallResource;
+use App\Filament\Resources\Members\MemberResource;
+use App\Models\Call;
+use App\Models\ContentView;
+use App\Models\Member;
+use App\Models\Page;
+use App\Models\Project;
+use App\Models\Service;
+use Carbon\CarbonImmutable;
+use Illuminate\Database\Eloquent\Model;
+use Illuminate\Support\Collection;
+
+/**
+ * What was read, from the daily per-language totals the frontend reports.
+ *
+ * Every figure is compared with the period just before it of the same length:
+ * "320 reads" says little, "320, up from 210" says whether something worked.
+ */
+final class ViewStats
+{
+    /**
+     * @var array<string, class-string<Model>>
+     */
+    protected const TYPES = [
+        'pages' => Page::class,
+        'projects' => Project::class,
+        'services' => Service::class,
+        'calls' => Call::class,
+        'members' => Member::class,
+    ];
+
+    public function __construct(public readonly int $days) {}
+
+    public function from(): CarbonImmutable
+    {
+        return CarbonImmutable::today()->subDays($this->days - 1);
+    }
+
+    public function previousFrom(): CarbonImmutable
+    {
+        return $this->from()->subDays($this->days);
+    }
+
+    /**
+     * @return Collection<int, array{type: string, title: string, url: ?string, views: int, previous: int}>
+     */
+    public function top(int $limit = 10): Collection
+    {
+        $current = ContentView::query()
+            ->where('day', '>=', $this->from()->toDateString())
+            ->selectRaw('viewable_type, viewable_id, SUM(count) as total')
+            ->groupBy('viewable_type', 'viewable_id')
+            ->orderByDesc('total')
+            ->limit($limit)
+            ->get();
+
+        $previous = ContentView::query()
+            ->whereBetween('day', [$this->previousFrom()->toDateString(), $this->from()->subDay()->toDateString()])
+            ->where(function ($q) use ($current): void {
+                foreach ($current as $row) {
+                    $q->orWhere(fn ($q) => $q->where('viewable_type', $row->viewable_type)->where('viewable_id', $row->viewable_id));
+                }
+            })
+            ->selectRaw('viewable_type, viewable_id, SUM(count) as total')
+            ->groupBy('viewable_type', 'viewable_id')
+            ->get()
+            ->keyBy(fn ($row) => $row->viewable_type.':'.$row->viewable_id);
+
+        return $current
+            ->map(function ($row) use ($previous): ?array {
+                $record = $row->viewable;
+
+                if (! $record instanceof Model) {
+                    return null;
+                }
+
+                return [
+                    'type' => array_search($record::class, self::TYPES, true) ?: class_basename($record),
+                    'title' => $record instanceof Member ? $record->name : ContentTypes::title($record),
+                    'url' => self::url($record),
+                    'views' => (int) $row->total,
+                    'previous' => (int) ($previous[$row->viewable_type.':'.$row->viewable_id]->total ?? 0),
+                ];
+            })
+            ->filter()
+            ->values();
+    }
+
+    /**
+     * Reads per language, now and in the period before.
+     *
+     * @return Collection<string, array{views: int, previous: int, share: float}>
+     */
+    public function byLocale(): Collection
+    {
+        $sum = fn (string $from, string $to) => ContentView::query()
+            ->whereBetween('day', [$from, $to])
+            ->selectRaw('locale, SUM(count) as total')
+            ->groupBy('locale')
+            ->pluck('total', 'locale');
+
+        $now = $sum($this->from()->toDateString(), CarbonImmutable::today()->toDateString());
+        $before = $sum($this->previousFrom()->toDateString(), $this->from()->subDay()->toDateString());
+        $total = max(1, (int) $now->sum());
+
+        return collect(array_keys((array) config('locales.supported')))
+            ->mapWithKeys(fn (string $locale) => [$locale => [
+                'views' => (int) ($now[$locale] ?? 0),
+                'previous' => (int) ($before[$locale] ?? 0),
+                'share' => round(((int) ($now[$locale] ?? 0)) * 100 / $total, 1),
+            ]]);
+    }
+
+    /**
+     * Day by day, per language, for the chart.
+     *
+     * @return array{labels: array<int, string>, series: array<string, array<int, int>>}
+     */
+    public function daily(): array
+    {
+        $rows = ContentView::query()
+            ->where('day', '>=', $this->from()->toDateString())
+            ->selectRaw('day, locale, SUM(count) as total')
+            ->groupBy('day', 'locale')
+            ->get()
+            ->groupBy(fn ($row) => CarbonImmutable::parse($row->day)->toDateString());
+
+        $labels = [];
+        $series = array_fill_keys(array_keys((array) config('locales.supported')), []);
+
+        for ($day = $this->from(); $day->lte(CarbonImmutable::today()); $day = $day->addDay()) {
+            $labels[] = $day->isoFormat('D MMM');
+            $today = ($rows[$day->toDateString()] ?? collect())->pluck('total', 'locale');
+
+            foreach (array_keys($series) as $locale) {
+                $series[$locale][] = (int) ($today[$locale] ?? 0);
+            }
+        }
+
+        return ['labels' => $labels, 'series' => $series];
+    }
+
+    /**
+     * On the site and read by nobody in the period: the content that is
+     * either hard to find or not worth finding.
+     *
+     * @return Collection<int, array{type: string, title: string, url: ?string}>
+     */
+    public function unread(int $limit = 50): Collection
+    {
+        $items = collect();
+
+        foreach (self::TYPES as $type => $model) {
+            $read = ContentView::query()
+                ->where('viewable_type', (new $model)->getMorphClass())
+                ->where('day', '>=', $this->from()->toDateString())
+                ->distinct()
+                ->pluck('viewable_id');
+
+            $model::query()
+                ->when($model === Call::class, fn ($q) => $q->open())
+                ->when($model === Member::class, fn ($q) => $q->public())
+                ->unless(in_array($model, [Call::class, Member::class], true), fn ($q) => $q->published())
+                ->whereNotIn((new $model)->getKeyName(), $read)
+                ->limit($limit)
+                ->get()
+                ->each(fn (Model $record) => $items->push([
+                    'type' => $type,
+                    'title' => $record instanceof Member ? $record->name : ContentTypes::title($record),
+                    'url' => self::url($record),
+                ]));
+        }
+
+        return $items->take($limit)->values();
+    }
+
+    protected static function url(Model $record): ?string
+    {
+        return match (true) {
+            $record instanceof Call => CallResource::getUrl('edit', ['record' => $record]),
+            $record instanceof Member => MemberResource::getUrl('edit', ['record' => $record]),
+            $record instanceof Page, $record instanceof Project, $record instanceof Service => ReviewTarget::url($record),
+            default => null,
+        };
+    }
+}