DataSHIELD is a new parallelized approach that enables data to be analysed as if one had full access to the individual-level records, but in fact the data never leave the computer on which they are stored at their study of origin. Using this form, statisticians can fit data models on this distributed and harmonized dataset. For more details, see this link.
'; $form['intro'] = array( '#markup' => $intro, ); $form['selection'] = array( '#type' => 'fieldset', '#title' => t('Step 1: Select Variables'), '#collapsible' => FALSE ); $form['selection']['add-term'] = array( '#type' => 'container', ); $form['selection']['add-term']['variable'] = array( '#type' => 'select', '#title' => t('Variables'), '#options' => $variable_options, ); $form['selection']['add-term']['add-variable'] = array( '#type' => 'submit', '#value' => t('Add Variable'), ); $form['selection']['list']['variables'] = array( '#type' => 'tableselect', '#header' => array('Variable'), '#options' => $model->options(), '#empty' => t('No variables selected') ); $form['selection']['list']['remove-variable'] = array( '#type' => 'submit', '#value' => t('Remove Variable(s)'), ); $form['model'] = array( '#type' => 'fieldset', '#title' => t('Step 2: Select Model'), '#collapsible' => FALSE ); $form['model']['model-to-fit'] = array( '#type' => 'textfield', '#disabled' => (count($model->variables()) < 1), '#title' => t('Model'), '#description' => t('The R formula to fit. Should reference the selected variables above (e.g.:') . ' ' . (count($model->variables()) > 1 ? $model->model() : 'BMI ~ HEIGHT + WEIGHT') . ')', '#default_value' => !empty($form_state['values']['model-to-fit']) ? $form_state['values']['model-to-fit'] : '', '#size' => 70, ); $form['model']['model-family'] = array( '#type' => 'select', '#title' => t('Family'), '#options' => array('gaussian' => t('Gaussian'), 'binomial' => t('Binomial'), 'poisson' => t('Poisson')), '#default_value' => !empty($form_state['values']['model-family']) ? $form_state['values']['model-family'] : 'gaussian', ); $form['fit'] = array( '#type' => 'fieldset', '#title' => t('Step 3: DataSHIELD!'), '#collapsible' => FALSE ); $form['fit']['submit'] = array( '#type' => 'submit', '#value' => t('DataSHIELD!'), ); if (!empty($form_state['values']['output'])) { $form['result'] = array( '#type' => 'fieldset', '#title' => t('DataSHIELD Result'), '#collapsible' => TRUE ); $form['result']['output'] = array( '#markup' => '' . $form_state['values']['output'] . '', ); } return $form; } function mica_datashield_form_submit($form, &$form_state) { $dataset_node = $form_state['build_info']['args'][0]; switch ($form_state['triggering_element']['#parents'][0]) { case 'add-variable': $vid = $form_state['values']['variable']; $model = _mica_datashield_model_load($dataset_node); $model->addVariable(node_load($vid)); _mica_datashield_model_store($dataset_node, $model); $form_state['rebuild'] = TRUE; break; case 'remove-variable': $vids = $form_state['values']['variables']; $model = _mica_datashield_model_load($dataset_node); $model->removeVariables($vids); _mica_datashield_model_store($dataset_node, $model); $form_state['rebuild'] = TRUE; break; case 'submit': $model = _mica_datashield_model_load($dataset_node); $model->launch($form_state['values']['model-to-fit'], array('family' => $form_state['values']['model-family'])); $form_state['values']['output'] = $model->stdout(); _mica_datashield_model_store($dataset_node, $model); $form_state['rebuild'] = TRUE; break; } } function _mica_datashield_model_load($dataset_node) { if (!isset($_SESSION['datashield'][$dataset_node->nid])) { return new DataShieldModel($dataset_node); } return unserialize($_SESSION['datashield'][$dataset_node->nid]); } function _mica_datashield_model_store($dataset_node, $model) { $_SESSION['datashield'][$dataset_node->nid] = serialize($model); }