Allow Fact app to draw charts

Summary: For any count fact, allow a chart to be drawn. INCREDIBLY POWERFUL DATA ANALYSIS PLATFORM.

Test Plan: Drew a chart of object counts. Drew the Maniphest burn chart.

Reviewers: vrana, btrahan

Reviewed By: btrahan

CC: aran

Maniphest Tasks: T1562

Differential Revision: https://secure.phabricator.com/D3099

src/applications/fact/controller/PhabricatorFactChartController.php

@@ -0,0 +1,92 @@
+<?php
+
+/*
+ * Copyright 2012 Facebook, Inc.
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *   http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+final class PhabricatorFactChartController extends PhabricatorFactController {
+
+  public function processRequest() {
+    $request = $this->getRequest();
+    $user = $request->getUser();
+
+    $table = new PhabricatorFactRaw();
+    $conn_r = $table->establishConnection('r');
+    $table_name = $table->getTableName();
+
+    $series = $request->getStr('y1');
+
+    $specs = PhabricatorFactSpec::newSpecsForFactTypes(
+      PhabricatorFactEngine::loadAllEngines(),
+      array($series));
+    $spec = idx($specs, $series);
+
+    $data = queryfx_all(
+      $conn_r,
+      'SELECT valueX, epoch FROM %T WHERE factType = %s ORDER BY epoch ASC',
+      $table_name,
+      $series);
+
+    $points = array();
+    $sum = 0;
+    foreach ($data as $key => $row) {
+      $sum += (int)$row['valueX'];
+      $points[(int)$row['epoch']] = $sum;
+    }
+
+    if (!$points) {
+      // NOTE: Raphael crashes Safari if you hand it series with no points.
+      throw new Exception("No data to show!");
+    }
+
+    $x = array_keys($points);
+    $y = array_values($points);
+
+    $id = celerity_generate_unique_node_id();
+    $chart = phutil_render_tag(
+      'div',
+      array(
+        'id' => $id,
+        'style' => 'border: 1px solid #6f6f6f; '.
+                   'margin: 1em 2em; '.
+                   'background: #ffffff; '.
+                   'height: 400px; ',
+      ),
+      '');
+
+    require_celerity_resource('raphael-core');
+    require_celerity_resource('raphael-g');
+    require_celerity_resource('raphael-g-line');
+
+    Javelin::initBehavior('line-chart', array(
+      'hardpoint' => $id,
+      'x' => array($x),
+      'y' => array($y),
+      'xformat' => 'epoch',
+      'colors' => array('#0000ff'),
+    ));
+
+    $panel = new AphrontPanelView();
+    $panel->setHeader('Count of '.$spec->getName());
+    $panel->appendChild($chart);
+
+    return $this->buildStandardPageResponse(
+      $panel,
+      array(
+        'title' => 'Chart',
+      ));
+  }
+
+}

src/applications/fact/controller/PhabricatorFactHomeController.php

@@ -22,6 +22,12 @@ final class PhabricatorFactHomeController extends PhabricatorFactController {
     $request = $this->getRequest();
     $user = $request->getUser();
 
+    if ($request->isFormPost()) {
+      $uri = new PhutilURI('/fact/chart/');
+      $uri->setQueryParam('y1', $request->getStr('y1'));
+      return id(new AphrontRedirectResponse())->setURI($uri);
+    }
+
     $types = array(
       '+N:*',
       '+N:DREV',
@@ -64,11 +70,68 @@ final class PhabricatorFactHomeController extends PhabricatorFactController {
     $panel->setHeader('Facts!');
     $panel->appendChild($table);
 
+    $chart_form = $this->buildChartForm();
+
     return $this->buildStandardPageResponse(
-      $panel,
+      array(
+        $chart_form,
+        $panel,
+      ),
       array(
         'title' => 'Facts!',
       ));
   }
 
+  private function buildChartForm() {
+    $request = $this->getRequest();
+    $user = $request->getUser();
+
+    $table = new PhabricatorFactRaw();
+    $conn_r = $table->establishConnection('r');
+    $table_name = $table->getTableName();
+
+    $facts = queryfx_all(
+      $conn_r,
+      'SELECT DISTINCT factType from %T',
+      $table_name);
+
+    $specs = PhabricatorFactSpec::newSpecsForFactTypes(
+      PhabricatorFactEngine::loadAllEngines(),
+      ipull($facts, 'factType'));
+
+    $options = array();
+    foreach ($specs as $spec) {
+      if ($spec->getUnit() == PhabricatorFactSpec::UNIT_COUNT) {
+        $options[$spec->getType()] = $spec->getName();
+      }
+    }
+
+    if (!$options) {
+      return id(new AphrontErrorView())
+        ->setSeverity(AphrontErrorView::SEVERITY_NOTICE)
+        ->setTitle(pht('No Chartable Facts'))
+        ->appendChild(
+          '<p>'.pht(
+            'There are no facts that can be plotted yet.').'</p>');
+    }
+
+    $form = id(new AphrontFormView())
+      ->setUser($user)
+      ->appendChild(
+        id(new AphrontFormSelectControl())
+          ->setLabel('Y-Axis')
+          ->setName('y1')
+          ->setOptions($options))
+      ->appendChild(
+        id(new AphrontFormSubmitControl())
+          ->setValue('Plot Chart'));
+
+    $panel = new AphrontPanelView();
+    $panel->appendChild($form);
+    $panel->setWidth(AphrontPanelView::WIDTH_FORM);
+    $panel->setHeader('Plot Chart');
+
+    return $panel;
+  }
+
 }