writing_single: writing_single
In ruleR: Generating numeric sequence items for intelligence tests

An internal function called by extract_single_comment and extract_double_comment

1	writing_single(x)

x

##---- 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 (x) 
{
    b <<- c(b, list(ws(x)))
    if (!inherits(x@previousRule, "IdenSingleRule")) {
        x <- x@previousRule
        writing_single(x)
    }
    else {
        return(b)
        break
    }
  }