better package description and some linting

Author: s-fleck

DESCRIPTION

@@ -4,8 +4,13 @@ Title: Vectorised Nested if-else Statements Similar to SQL CASE WHEN
 Version: 1.0.0
 Authors@R: person("Stefan", "Fleck", email = "[email protected]", role = c("aut", "cre"))
 Maintainer: Stefan Fleck <[email protected]>
-Description: A fork of the functions case_when and if_else from dplyr,
-  but without any external dependencies.
+Description: 
+  Functions for vectorised conditional recoding of variables. case_when()
+  enables you to vectorise multiple if and else statements (like `CASE WHEN` 
+  in SQL). if_else() is a stricter and more predictable
+  version of base::ifelse() that preserves attributes. These functions are 
+  forked from 'dplyr' with all package dependencies removed and behave
+  identically to the originals.
 License: MIT + file LICENSE
 Encoding: UTF-8
 LazyData: true

R/case_when.R

@@ -63,14 +63,12 @@
 #'   TRUE ~ NA
 #' )
 #' }
-#'
 #' dat <- iris[1:5, ]
-#' dat$size<- case_when(
+#' dat$size <- case_when(
 #'   dat$Sepal.Length < 5.0 ~ "small",
 #'   TRUE ~ "big"
 #' )
 #' dat
-
 case_when <- function(...) {
   formulas <- list(...)
   n <- length(formulas)
@@ -122,7 +120,6 @@ case_when <- function(...) {
       lhs_problems <- lhs_lengths %in% inconsistent_lengths
       rhs_problems <- rhs_lengths %in% inconsistent_lengths
 
-
       bad_calls(
         formulas[lhs_problems | rhs_problems],
         inconsistent_lengths_message(inconsistent_lengths, m)
@@ -140,4 +137,3 @@ case_when <- function(...) {
 
   out
 }
-

R/if_else.R

@@ -66,4 +66,3 @@ if_else <- function(
 
   out
 }
-

R/utils.R

@@ -39,9 +39,6 @@ fmt_calls <- function(...){
 
 
 
-
-
-
 replace_with <- function (
   x,
   i,

README.md

@@ -2,12 +2,13 @@
 
 [![lifecycle](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://www.tidyverse.org/lifecycle/#stable)
 
-lest is a fork of the
-[dplyr](https://cran.r-project.org/web/packages/dplyr/index.html) functions
-`if_else()` and `case_when()`. `if_else()` is a stricter and more predictable
-version of `base::ifelse()` that preverves attributes (and therefore works with
-Dates). `case_when()` enables you to vectorise multiple `if` and `else` 
-statements (like `CASE WHEN` in SQL). 
+Lest provides two functions for vectorised conditional recoding of variables.
+`case_when()` enables you to vectorise multiple `if` and `else` statements (like
+`CASE WHEN` in SQL). `if_else()` is a stricter and more predictable version of
+`base::ifelse()` that preverves attributes (and therefore works with Dates). The
+functions in lest are forks of the
+[dplyr](https://cran.r-project.org/web/packages/dplyr/index.html) functions of
+the same name.
 
 **lest** depends only on base, and will never add any external dependencies.