The R Project SVN R-packages

Rev

Rev 7551 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7551 Rev 8480
Line 70... Line 70...
70 
    }
 70 
    }
71
71
72 
    cat("SET DECIMAL=DOT.\n\n", file = codefile) # required if SPSS runs in a locale with DECIMAL=comma
 72 
    cat("SET DECIMAL=DOT.\n\n", file = codefile) # required if SPSS runs in a locale with DECIMAL=comma
73 
    cat("DATA LIST FILE=", adQuote(datafile), " free (\",\")\n",
 73 
    cat("DATA LIST FILE=", adQuote(datafile), " free (\",\")\n",
74 
        file = codefile, append = TRUE)
 74 
        file = codefile, append = TRUE)
- 
 
 75 
    ## formerly ENCODING="Locale" was used, but now "UTF8" is default encoding on all supported platforms
75 
    cat('ENCODING="Locale"\n', file = codefile, append = TRUE)
 76 
    cat('ENCODING="UTF8"\n', file = codefile, append = TRUE)
76 
 
 77 
 
77 
    ## No line longer than 251 chars:
 78 
    ## No line longer than 251 chars:
78 
    cat("/", paste(strwrap(paste(dl.varnames, collapse=" "), width=70), "\n"), " .\n\n",
79 
    cat("/", paste(strwrap(paste(dl.varnames, collapse=" "), width=70), "\n"), " .\n\n",
79 
        file = codefile, append = TRUE)
 80 
        file = codefile, append = TRUE)
80 
    cat("VARIABLE LABELS\n", file = codefile, append = TRUE)
 81 
    cat("VARIABLE LABELS\n", file = codefile, append = TRUE)