| 1 | efrain | 1 | <?php
 | 
        
           |  |  | 2 | // This file is part of Moodle - http://moodle.org/
 | 
        
           |  |  | 3 | //
 | 
        
           |  |  | 4 | // Moodle is free software: you can redistribute it and/or modify
 | 
        
           |  |  | 5 | // it under the terms of the GNU General Public License as published by
 | 
        
           |  |  | 6 | // the Free Software Foundation, either version 3 of the License, or
 | 
        
           |  |  | 7 | // (at your option) any later version.
 | 
        
           |  |  | 8 | //
 | 
        
           |  |  | 9 | // Moodle is distributed in the hope that it will be useful,
 | 
        
           |  |  | 10 | // but WITHOUT ANY WARRANTY; without even the implied warranty of
 | 
        
           |  |  | 11 | // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 | 
        
           |  |  | 12 | // GNU General Public License for more details.
 | 
        
           |  |  | 13 | //
 | 
        
           |  |  | 14 | // You should have received a copy of the GNU General Public License
 | 
        
           |  |  | 15 | // along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
 | 
        
           |  |  | 16 |   | 
        
           |  |  | 17 | /**
 | 
        
           |  |  | 18 |  * Insights list page.
 | 
        
           |  |  | 19 |  *
 | 
        
           |  |  | 20 |  * @package    report_insights
 | 
        
           |  |  | 21 |  * @copyright  2017 David Monllao {@link http://www.davidmonllao.com}
 | 
        
           |  |  | 22 |  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 | 
        
           |  |  | 23 |  */
 | 
        
           |  |  | 24 |   | 
        
           |  |  | 25 | namespace report_insights\output;
 | 
        
           |  |  | 26 |   | 
        
           |  |  | 27 | defined('MOODLE_INTERNAL') || die();
 | 
        
           |  |  | 28 |   | 
        
           |  |  | 29 | /**
 | 
        
           |  |  | 30 |  * Shows report_insights insights list.
 | 
        
           |  |  | 31 |  *
 | 
        
           |  |  | 32 |  * @package    report_insights
 | 
        
           |  |  | 33 |  * @copyright  2017 David Monllao {@link http://www.davidmonllao.com}
 | 
        
           |  |  | 34 |  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 | 
        
           |  |  | 35 |  */
 | 
        
           |  |  | 36 | class insights_list implements \renderable, \templatable {
 | 
        
           |  |  | 37 |   | 
        
           |  |  | 38 |     /**
 | 
        
           |  |  | 39 |      * @var \core_analytics\model
 | 
        
           |  |  | 40 |      */
 | 
        
           |  |  | 41 |     protected $model;
 | 
        
           |  |  | 42 |   | 
        
           |  |  | 43 |     /**
 | 
        
           |  |  | 44 |      * @var \context
 | 
        
           |  |  | 45 |      */
 | 
        
           |  |  | 46 |     protected $context;
 | 
        
           |  |  | 47 |   | 
        
           |  |  | 48 |     /**
 | 
        
           |  |  | 49 |      * @var \core_analytics\model[]
 | 
        
           |  |  | 50 |      */
 | 
        
           |  |  | 51 |     protected $othermodels;
 | 
        
           |  |  | 52 |   | 
        
           |  |  | 53 |     /**
 | 
        
           |  |  | 54 |      * @var int
 | 
        
           |  |  | 55 |      */
 | 
        
           |  |  | 56 |     protected $page;
 | 
        
           |  |  | 57 |   | 
        
           |  |  | 58 |     /**
 | 
        
           |  |  | 59 |      * @var int
 | 
        
           |  |  | 60 |      */
 | 
        
           |  |  | 61 |     protected $perpage;
 | 
        
           |  |  | 62 |   | 
        
           |  |  | 63 |     /**
 | 
        
           |  |  | 64 |      * Constructor
 | 
        
           |  |  | 65 |      *
 | 
        
           |  |  | 66 |      * @param \core_analytics\model $model
 | 
        
           |  |  | 67 |      * @param \context $context
 | 
        
           |  |  | 68 |      * @param \core_analytics\model[] $othermodels
 | 
        
           |  |  | 69 |      * @param int $page
 | 
        
           |  |  | 70 |      * @param int $perpage The max number of results to fetch
 | 
        
           |  |  | 71 |      * @return void
 | 
        
           |  |  | 72 |      */
 | 
        
           |  |  | 73 |     public function __construct(\core_analytics\model $model, \context $context, $othermodels, $page = 0, $perpage = 100) {
 | 
        
           |  |  | 74 |         $this->model = $model;
 | 
        
           |  |  | 75 |         $this->context = $context;
 | 
        
           |  |  | 76 |         $this->othermodels = $othermodels;
 | 
        
           |  |  | 77 |         $this->page = $page;
 | 
        
           |  |  | 78 |         $this->perpage = $perpage;
 | 
        
           |  |  | 79 |     }
 | 
        
           |  |  | 80 |   | 
        
           |  |  | 81 |     /**
 | 
        
           |  |  | 82 |      * Exports the data.
 | 
        
           |  |  | 83 |      *
 | 
        
           |  |  | 84 |      * @param \renderer_base $output
 | 
        
           |  |  | 85 |      * @return \stdClass
 | 
        
           |  |  | 86 |      */
 | 
        
           |  |  | 87 |     public function export_for_template(\renderer_base $output) {
 | 
        
           |  |  | 88 |         global $PAGE;
 | 
        
           |  |  | 89 |   | 
        
           |  |  | 90 |         $target = $this->model->get_target();
 | 
        
           |  |  | 91 |   | 
        
           |  |  | 92 |         $data = new \stdClass();
 | 
        
           |  |  | 93 |         $data->modelid = $this->model->get_id();
 | 
        
           |  |  | 94 |         $data->contextid = $this->context->id;
 | 
        
           |  |  | 95 |   | 
        
           |  |  | 96 |         $targetname = $target->get_name();
 | 
        
           |  |  | 97 |         $data->insightname = format_string($targetname);
 | 
        
           |  |  | 98 |   | 
        
           |  |  | 99 |         $targetinfostr = $targetname->get_identifier() . 'info';
 | 
        
           |  |  | 100 |         if (get_string_manager()->string_exists($targetinfostr, $targetname->get_component())) {
 | 
        
           |  |  | 101 |             $data->insightdescription = get_string($targetinfostr, $targetname->get_component());
 | 
        
           |  |  | 102 |         }
 | 
        
           |  |  | 103 |   | 
        
           |  |  | 104 |         $data->showpredictionheading = true;
 | 
        
           |  |  | 105 |         if (!$target->is_linear()) {
 | 
        
           |  |  | 106 |             $nclasses = count($target::get_classes());
 | 
        
           |  |  | 107 |             $nignoredclasses = count($target->ignored_predicted_classes());
 | 
        
           |  |  | 108 |             if ($nclasses - $nignoredclasses <= 1) {
 | 
        
           |  |  | 109 |                 // Hide the prediction heading if there is only 1 class displayed. Otherwise it is redundant with the insight name.
 | 
        
           |  |  | 110 |                 $data->showpredictionheading = false;
 | 
        
           |  |  | 111 |             }
 | 
        
           |  |  | 112 |         }
 | 
        
           |  |  | 113 |   | 
        
           |  |  | 114 |         $total = 0;
 | 
        
           |  |  | 115 |   | 
        
           |  |  | 116 |         if ($this->model->uses_insights()) {
 | 
        
           |  |  | 117 |   | 
        
           |  |  | 118 |             $target->add_bulk_actions_js();
 | 
        
           |  |  | 119 |   | 
        
           |  |  | 120 |             $predictionsdata = $this->model->get_predictions($this->context, true, $this->page, $this->perpage);
 | 
        
           |  |  | 121 |   | 
        
           |  |  | 122 |             if (!$this->model->is_static()) {
 | 
        
           |  |  | 123 |                 $notification = new \core\output\notification(get_string('justpredictions', 'report_insights'));
 | 
        
           |  |  | 124 |                 $data->nostaticmodelnotification = $notification->export_for_template($output);
 | 
        
           |  |  | 125 |             }
 | 
        
           |  |  | 126 |   | 
        
           |  |  | 127 |             $data->predictions = array();
 | 
        
           |  |  | 128 |             $predictionvalues = array();
 | 
        
           |  |  | 129 |             $insights = array();
 | 
        
           |  |  | 130 |             if ($predictionsdata) {
 | 
        
           |  |  | 131 |                 list($total, $predictions) = $predictionsdata;
 | 
        
           |  |  | 132 |   | 
        
           |  |  | 133 |                 if ($predictions) {
 | 
        
           |  |  | 134 |                     // No bulk actions if no predictions.
 | 
        
           |  |  | 135 |                     $data->bulkactions = actions_exporter::add_bulk_actions($target, $output, $predictions, $this->context);
 | 
        
           |  |  | 136 |                 }
 | 
        
           |  |  | 137 |   | 
        
           |  |  | 138 |                 $data->multiplepredictions = count($predictions) > 1 ? true : false;
 | 
        
           |  |  | 139 |   | 
        
           |  |  | 140 |                 foreach ($predictions as $prediction) {
 | 
        
           |  |  | 141 |                     $predictedvalue = $prediction->get_prediction_data()->prediction;
 | 
        
           |  |  | 142 |   | 
        
           |  |  | 143 |                     // Only need to fill this data once.
 | 
        
           |  |  | 144 |                     if (!isset($predictionvalues[$predictedvalue])) {
 | 
        
           |  |  | 145 |                         $preddata = array();
 | 
        
           |  |  | 146 |                         $preddata['predictiondisplayvalue'] = $target->get_display_value($predictedvalue);
 | 
        
           |  |  | 147 |                         list($preddata['style'], $preddata['outcomeicon']) =
 | 
        
           |  |  | 148 |                             insight::get_calculation_display($target, floatval($predictedvalue), $output);
 | 
        
           |  |  | 149 |                         $predictionvalues[$predictedvalue] = $preddata;
 | 
        
           |  |  | 150 |                     }
 | 
        
           |  |  | 151 |   | 
        
           |  |  | 152 |                     $insightrenderable = new \report_insights\output\insight($prediction, $this->model, true, $this->context);
 | 
        
           |  |  | 153 |                     $insights[$predictedvalue][] = $insightrenderable->export_for_template($output);
 | 
        
           |  |  | 154 |                 }
 | 
        
           |  |  | 155 |   | 
        
           |  |  | 156 |                 // Order predicted values.
 | 
        
           |  |  | 157 |                 if ($target->is_linear()) {
 | 
        
           |  |  | 158 |                     // During regression what we will be interested on most of the time is in low values so let's show them first.
 | 
        
           |  |  | 159 |                     ksort($predictionvalues);
 | 
        
           |  |  | 160 |                 } else {
 | 
        
           |  |  | 161 |                     // During classification targets flag "not that important" samples as 0 so let's show them at the end.
 | 
        
           |  |  | 162 |                     krsort($predictionvalues);
 | 
        
           |  |  | 163 |                 }
 | 
        
           |  |  | 164 |   | 
        
           |  |  | 165 |                 // Ok, now we have all the data we want, put it into a format that mustache can handle.
 | 
        
           |  |  | 166 |                 foreach ($predictionvalues as $key => $prediction) {
 | 
        
           |  |  | 167 |                     if (isset($insights[$key])) {
 | 
        
           |  |  | 168 |   | 
        
           |  |  | 169 |                         $toggleall = new \core\output\checkbox_toggleall('insight-bulk-action-' . $key, true, [
 | 
        
           |  |  | 170 |                             'id' => 'id-toggle-all-' . $key,
 | 
        
           |  |  | 171 |                             'name' => 'toggle-all-' . $key,
 | 
        
           |  |  | 172 |                             'label' => get_string('selectall'),
 | 
        
           | 1441 | ariadna | 173 |                             'labelclasses' => 'visually-hidden',
 | 
        
           | 1 | efrain | 174 |                             'checked' => false
 | 
        
           |  |  | 175 |                         ]);
 | 
        
           |  |  | 176 |                         $prediction['checkboxtoggleall'] = $output->render($toggleall);
 | 
        
           |  |  | 177 |   | 
        
           |  |  | 178 |                         $prediction['predictedvalue'] = $key;
 | 
        
           |  |  | 179 |                         $prediction['insights'] = $insights[$key];
 | 
        
           |  |  | 180 |                     }
 | 
        
           |  |  | 181 |   | 
        
           |  |  | 182 |                     $data->predictions[] = $prediction;
 | 
        
           |  |  | 183 |                 }
 | 
        
           |  |  | 184 |             }
 | 
        
           |  |  | 185 |   | 
        
           |  |  | 186 |             if (empty($insights) && $this->page == 0) {
 | 
        
           |  |  | 187 |                 if ($this->model->any_prediction_obtained()) {
 | 
        
           |  |  | 188 |                     $data->noinsights = get_string('noinsights', 'analytics');
 | 
        
           |  |  | 189 |                 } else {
 | 
        
           |  |  | 190 |                     $data->noinsights = get_string('nopredictionsyet', 'analytics');
 | 
        
           |  |  | 191 |                 }
 | 
        
           |  |  | 192 |             }
 | 
        
           |  |  | 193 |         } else {
 | 
        
           |  |  | 194 |             $data->noinsights = get_string('noinsights', 'analytics');
 | 
        
           |  |  | 195 |         }
 | 
        
           |  |  | 196 |   | 
        
           |  |  | 197 |         if (!empty($data->noinsights)) {
 | 
        
           |  |  | 198 |             $notification = new \core\output\notification($data->noinsights);
 | 
        
           |  |  | 199 |             $data->noinsights = $notification->export_for_template($output);
 | 
        
           |  |  | 200 |         }
 | 
        
           |  |  | 201 |   | 
        
           |  |  | 202 |         $url = $PAGE->url;
 | 
        
           |  |  | 203 |   | 
        
           |  |  | 204 |         if ($this->othermodels) {
 | 
        
           |  |  | 205 |   | 
        
           |  |  | 206 |             $options = array();
 | 
        
           |  |  | 207 |             foreach ($this->othermodels as $model) {
 | 
        
           |  |  | 208 |                 $options[$model->get_id()] = $model->get_target()->get_name();
 | 
        
           |  |  | 209 |             }
 | 
        
           |  |  | 210 |   | 
        
           |  |  | 211 |             // New moodle_url instance returned by magic_get_url.
 | 
        
           |  |  | 212 |             $url->remove_params('modelid');
 | 
        
           |  |  | 213 |             $modelselector = new \single_select($url, 'modelid', $options, '',
 | 
        
           |  |  | 214 |                 array('' => get_string('selectotherinsights', 'report_insights')));
 | 
        
           |  |  | 215 |             $data->modelselector = $modelselector->export_for_template($output);
 | 
        
           |  |  | 216 |         }
 | 
        
           |  |  | 217 |   | 
        
           |  |  | 218 |         // Add the 'perpage' parameter to the url which is later used to generate the pagination links.
 | 
        
           |  |  | 219 |         $url->param('perpage', $this->perpage);
 | 
        
           |  |  | 220 |         $data->pagingbar = $output->render(new \paging_bar($total, $this->page, $this->perpage, $url));
 | 
        
           |  |  | 221 |   | 
        
           |  |  | 222 |         return $data;
 | 
        
           |  |  | 223 |     }
 | 
        
           |  |  | 224 | }
 |