Convert manual to markdown

Author: gdemin

DESCRIPTION

@@ -21,4 +21,5 @@ VignetteBuilder: knitr
 License: GPL-2
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 6.1.1
+RoxygenNote: 7.1.1
+Roxygen: list(markdown = TRUE)

R/numerate.R

@@ -1,15 +1,13 @@
 #' Auxiliary functions for working with lists
 #'
-#' \itemize{
-#' \item{numerate}{ returns list of lists. Each list consists of two elements:
+#' - `numerate` returns list of lists. Each list consists of two elements:
 #' sequential number of element and element. Reverse operation -
-#' \code{unumerate}.}
-#' \item{mark}{ returns list of lists. Each list consists of two elements: name of element and element. Reverse operation -
-#' \code{unmark}.}
-#' \item{zip_lists}{ combine lists side-by-sidy. Reverse operation - \code{unzip_list}.}
-#' \item{unzip_list}{ It's similair to matrix transposition but for list of lists.}
-#' \item{lag_list}{ convert argument to list of arguments with previous values. x -> list(x[i-1], x[i]).}
-#' }
+#' `unumerate`.
+#' - `mark` returns list of lists. Each list consists of two elements: name of element and element. Reverse operation -
+#' `unmark`.
+#' - `zip_lists` combines lists side-by-sidy. Reverse operation - `unzip_list`.
+#' - `unzip_list` is similair to matrix transposition but for list of lists.
+#' - `lag_list` converts argument to list of arguments with previous values: `x` -> `list(x[i-1], x[i])`.
 #'
 #' @param x list, vector or list of lists
 #' @param item numeric number of list in which stored values

R/to_list.R

@@ -1,21 +1,21 @@
 #' List comprehensions for R
 #'
-#' \itemize{\item{\code{to_list}}{ converts usual R loops expressions to list producers.
-#' Expression should be started with \code{for} ,  \code{while} or
-#' \code{repeat}. You can iterate over multiple lists if you provide several
-#' loop variables in backticks. See examples.}
-#' \item{\code{to_vec}}{ is the same as 'to_list' but return vector. See examples.}
-#' \item{\code{alter}}{ return the same type as its argument but with modified
+#' - `to_list` converts usual R loops expressions to list producers.
+#' Expression should be started with `for`, `while` or
+#' `repeat`. You can iterate over multiple lists if you provide several
+#' loop variables in backticks. See examples.
+#' - `to_vec` is the same as 'to_list' but return vector. See examples.
+#' - `alter` returns the same type as its argument but with modified
 #' elements. It is useful for altering existing data.frames or lists. See
-#' examples.}
-#' \item{\code{exclude}}{ is an auxiliary function for dropping elements in
-#' 'alter'. There are no arguments for this function.}
-#' }
-#' @param expr expression which starts with \code{for} ,  \code{while} or \code{repeat}.
-#' @param recursive	logical. Should unlisting be applied to list components of result? See \link[base]{unlist} for details.
-#' @param use.names logical. Should names be preserved? See \link[base]{unlist} for details.
+#' examples.
+#' - `exclude` is an auxiliary function for dropping elements in
+#' `alter`. There are no arguments for this function.
+#'
+#' @param expr expression which starts with `for`, `while` or `repeat`.
+#' @param recursive	logical. Should unlisting be applied to list components of result? See [unlist][base::unlist] for details.
+#' @param use.names logical. Should names be preserved? See [unlist][base::unlist] for details.
 #' @param data data.frame/list/vector which we want to alter
-#' @return list for \code{to_list} and vector for \code{to_vec}
+#' @return list for `to_list` and vector for `to_vec`
 #' @export
 #'
 #' @examples
@@ -141,20 +141,20 @@ add_expansion_to_loop = function(expr){
 }
 
 is_loop = function(expr){
-    if(!is.call(expr)) return(FALSE)
+    is.call(expr) || return(FALSE)
     first_item = expr[[1]]
     identical(first_item, quote(`for`)) ||identical(first_item, quote(`while`)) ||identical(first_item, quote(`repeat`))
 }
 
 is_for_loop = function(expr){
-    if(!is.call(expr)) return(FALSE)
+    is.call(expr) || return(FALSE)
     first_item = expr[[1]]
     identical(first_item, quote(`for`))
 }
 
 has_loop_inside = function(expr){
-    if(!is.call(expr)) return(FALSE)
-    if(is_loop(expr)) return(TRUE)
+    is.call(expr) || return(FALSE)
+    !is_loop(expr) || return(TRUE)
     any(
         unlist(
             lapply(as.list(expr), has_loop_inside),