Mercurial > repos > guerler > chartskit
comparison chartskit.r @ 34:0197da753d1e draft default tip
Uploaded
| author | guerler |
|---|---|
| date | Mon, 07 Apr 2014 19:50:38 -0400 |
| parents | 7774e0097ff4 |
| children |
comparison
equal
deleted
inserted
replaced
| 33:39ee947b4a9e | 34:0197da753d1e |
|---|---|
| 413 | 413 |
| 414 # run module | 414 # run module |
| 415 l = wrapper (table, columns, settings) | 415 l = wrapper (table, columns, settings) |
| 416 | 416 |
| 417 # header | 417 # header |
| 418 header_title <- '# title\t\tCharts Toolkit (chartskit)' | 418 header_title <- '# title - Charts Toolkit (chartskit)' |
| 419 header_date <- paste('# date\t\t', Sys.time(), sep='') | 419 header_date <- paste('# date -', Sys.time(), sep=' ') |
| 420 header_module <- paste('# module\t', opt$module, sep='') | 420 header_module <- paste('# module -', opt$module, sep=' ') |
| 421 header_settings <- paste('# settings\t', opt$settings, sep='') | 421 header_settings <- paste('# settings -', opt$settings, sep=' ') |
| 422 header_columns <- paste('# columns\t', opt$columns, sep='') | 422 header_columns <- paste('# columns -', opt$columns, sep=' ') |
| 423 | 423 |
| 424 # fill gaps | 424 # fill gaps |
| 425 if (length(l) > 0) { | 425 if (length(l) > 0) { |
| 426 # print details | 426 # print details |
| 427 if (!is.null(opt$verbose)) { | 427 if (!is.null(opt$verbose)) { |