sandbox/docbook/examples/report2/.configure

   1 set -e -u
   2 # check for options with arguments
   3 Usage() {
   4     echo 'this is the help'
   5     exit 1
   6 }
   7 length=0
   8 BW=False
   9 RES=100
  10 while [ $# -gt 0 ]
  11 do
  12     case "$1" in
  13
  14         --)     shift; break;;          # ====> standard in
  15         -h)     Usage;;                 # ==> Help message.
  16         --help) Usage;;
  17         --bw)  BW=True;;
  18         --res) shift; RES=$1;;
  19         -*)     Usage;;                 # ===> illegal help
  20          *)     Usage;;                 # first argument not legal
  21     esac
  22     shift
  23 done
  24
  25 cd charts
  26 (
  27 cat << EOF
  28 lwd=3
  29 font_size = .8
  30 tick_multiplier = 1
  31 lwd_grid = .3
  32 width=5.5
  33 margins=c(4, 4, .5, 0.5)
  34 mgp = c(4, 1, 0)
  35 legend_font_size = 0.8
  36 default_grid_color = "lightgray"
  37 ax_col = default_grid_color
  38 box_col = default_grid_color
  39 rec_col = default_grid_color
  40 bar_label_size = .8
  41 margins_bar=c(2, 4, .5, 0.5)
  42 base_line_type = 2
  43 months.font = .6
  44 at = c(0,1,2,3,4,5,6,7,8,9,10,11,12)
  45 at = at /12 * 52
  46 months = c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
  47 at2 = c(0,1,2,3,4,5,6,7,8,9,10,11)
  48 at2 = at2 /12 * 52
  49 at2 = at2 + .5 * 52/12
  50 months.grid = T
  51 make.title= F
  52 bottom.margin = 4
  53 top.margin=.5
  54 box.lwd=1
  55 line_types = c(1,1,1,1,1,1)
  56 line_colors = c("red","blue", "green", "orange")
  57 bar_color = c("#330099", "#FF6600")
  58 base_line_col = "green"
  59 base_line_col = c(654)
  60 EOF
  61 ) > .Rprofile
  62
  63 echo res = $RES >> .Rprofile
  64
  65 if [ "$BW" == "True" ]; then
  66 (
  67 cat << EOF
  68 line_types = c(2,1,3,4,5,6)
  69 line_colors = c(rep("black", 10))
  70 bar_color = c("black", "lightgray")
  71 base_line_col = "black"
  72 EOF
  73 ) >> .Rprofile
  74 fi
  75 cd ..