17 lines
474 B
R
17 lines
474 B
R
|
#' @title Take line
|
||
|
|
#' @description Returns one line from the description.
|
||
|
|
#' @param description description
|
||
|
|
#' @param width width
|
||
|
|
#' @return newline
|
||
|
|
#' @export
|
||
|
|
takeLine <- function(description, width) {
|
||
|
|
# Returns one line from the description: line ends to the first
|
||
|
|
# space after width:th mark.
|
||
|
|
newLine <- description[1:width]
|
||
|
|
n <- width + 1
|
||
|
|
while ((description[n] != " ") & (n < length(description))) {
|
||
|
|
n <- n + 1
|
||
|
|
}
|
||
|
|
newline <- description[1:n]
|
||
|
|
return(newline)
|
||
|
|
}
|