$filename = "survey_" . $surveyid . "_R_syntax_file.R";
$exportroutput .= "<input type='hidden' name='sid' value='{$surveyid}' />\n" . "<input type='hidden' name='action' value='exportr' /></li>\n" . "<li><label for='dlstructure'>" . $clang->gT("Step 1:") . "</label><input type='submit' name='dlstructure' id='dlstructure' value='" . $clang->gT("Export R syntax file") . "'/></li>\n" . "<li><label for='dldata'/>" . $clang->gT("Step 2:") . "</label><input type='submit' name='dldata' id='dldata' value='" . $clang->gT("Export .csv data file") . "'/></li></ul>\n" . "</form>\n" . "<p><div class='messagebox ui-corner-all'><div class='header ui-widget-header'>" . $clang->gT("Instructions for the impatient") . "</div>" . "<br/><ol style='margin:0 auto; font-size:8pt;'>" . "<li>" . $clang->gT("Download the data and the syntax file.") . "</li>" . "<li>" . $clang->gT("Save both of them on the R working directory (use getwd() and setwd() on the R command window to get and set it)") . ".</li>" . "<li>" . sprintf($clang->gT("digit: source(\"%s\", encoding = \"UTF-8\") on the R command window"), $filename) . "</li>" . "</ol><br />" . $clang->gT("Your data should be imported now, the data.frame is named \"data\", the variable.labels are attributes of data (\"attributes(data)\$variable.labels\"), like for foreign:read.spss.") . "</div>";
} else {
// Get Base language:
$language = GetBaseLanguageFromSurveyID($surveyid);
$clang = new limesurvey_lang($language);
require_once "export_data_functions.php";
}
if ($subaction == 'dldata') {
header("Content-Disposition: attachment; filename=survey_" . $surveyid . "_R_data_file.csv");
header("Content-type: text/comma-separated-values; charset=UTF-8");
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
header("Pragma: public");
$na = "";
//change to empty string instead of two double quotes to fix warnings on NA
spss_export_data($na, true);
// this true indicates that the format is .csv
exit;
}
if ($subaction == 'dlstructure') {
header("Content-Disposition: attachment; filename=survey_" . $surveyid . "_R_syntax_file.R");
header("Content-type: application/download; charset=UTF-8");
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
header("Pragma: public");
echo $headerComment;
echo "data <- read.table(\"survey_" . $surveyid . "_R_data_file.csv\", sep=\",\", quote = \"'\", " . "na.strings=c(\"\",\"\\\"\\\"\"), " . "stringsAsFactors=FALSE)\n\n";
// echo "names(data) <- paste(\"V\",1:dim(data)[2],sep=\"\")\n\n";
// Build array that has to be returned
$fields = spss_fieldmap("V");
//Now get the query string with all fields to export
$query = spss_getquery();
} else {
// Get Base language:
$language = GetBaseLanguageFromSurveyID($surveyid);
$clang = new limesurvey_lang($language);
require_once "export_data_functions.php";
}
if ($subaction == 'dldata') {
header("Content-Disposition: attachment; filename=survey_" . $surveyid . "_SPSS_data_file.dat");
header("Content-type: text/comma-separated-values; charset=UTF-8");
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
header("Pragma: public");
if ($spssver == 2) {
echo "";
}
$na = "";
spss_export_data($na);
exit;
}
if ($subaction == 'dlstructure') {
header("Content-Disposition: attachment; filename=survey_" . $surveyid . "_SPSS_syntax_file.sps");
header("Content-type: application/download; charset=UTF-8");
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
header("Pragma: public");
// Build array that has to be returned
$fields = spss_fieldmap();
//Now get the query string with all fields to export
$query = spss_getquery();
$result = db_execute_num($query) or safe_die("Couldn't get results<br />{$query}<br />" . $connect->ErrorMsg());
//Checked
$num_fields = $result->FieldCount();
//Now we check if we need to adjust the size of the field or the type of the field
// Get Base language:
$language = GetBaseLanguageFromSurveyID($surveyid);
$clang = new limesurvey_lang($language);
require_once ("export_data_functions.php");
}
if ($subaction=='dldata')
{
header("Content-Disposition: attachment; filename=survey_".$surveyid."_data_file.csv");
header("Content-type: text/comma-separated-values; charset=UTF-8");
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
header("Pragma: public");
$na=""; //change to empty string instead of two double quotes to fix warnings on NA
spss_export_data($na, true); // this true indicates that the format is .csv
exit;
}
if ($subaction=='dlstructure')
{
header("Content-Disposition: attachment; filename=Surveydata_syntax.R");
header("Content-type: application/download; charset=UTF-8");
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
header("Pragma: public");
echo $headerComment;
echo "data <- read.table(\"survey_".$surveyid
."_data_file.csv\", sep=\",\", quote = \"'\", "
."na.strings=c(\"\",\"\\\"\\\"\"), "
