Saying: Saying

In pingqingsheng/Robot0001: What the package does (short line)

Usage

Saying()

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function () 
{
    centerText <<- function(output) {
        width <- getOption("width")
        mid <- output
        out <- paste0(rep("=", nchar(mid)), collapse = "")
        ws <- rep(" ", floor((width - nchar(out))/2))
        cat(ws, out, "\n", ws, mid, "\n", ws, out, sep = "")
    }
    centerText_2 <<- function(output) {
        width <- getOption("width")
        mid <- output
        out <- paste0(rep("=", nchar(mid)), collapse = "")
        ws <- rep(" ", floor((width - nchar(out))/2))
        return(list(ws = ws, out = out, mid = mid))
    }
  }

pingqingsheng/Robot0001 documentation built on May 5, 2019, 5:53 p.m.