Skip to content

Commit

Permalink
redundant if statement in de/motivate functions
Browse files Browse the repository at this point in the history
  • Loading branch information
jpmonteagudo28 committed Dec 16, 2024
1 parent b5799c4 commit c4ac47b
Show file tree
Hide file tree
Showing 3 changed files with 16 additions and 12 deletions.
11 changes: 7 additions & 4 deletions R/bard.bits.R
Original file line number Diff line number Diff line change
Expand Up @@ -48,17 +48,20 @@ bard.bits <- function(cat,
valid_cats,
several.ok = FALSE)

if(missing(seed)){

if (missing(seed)) {

set.seed(NULL)

} else {
if (is.numeric(seed)){
set.seed(seed)
if (!is.numeric(seed)) {

seed <- set.char.seed(seed)
}
seed <- set.char.seed(seed)
set.seed(seed)
}


if(cat == "any"){
adjs <- rbind(shake_adjectives,shake_clrs, dsm_5)
one_adj <- sample(unique(adjs$values),1)
Expand Down
8 changes: 4 additions & 4 deletions R/demotivate.R
Original file line number Diff line number Diff line change
Expand Up @@ -37,15 +37,15 @@ demotivate <- function(cat = "any",
valid_cats,
several.ok = FALSE)

if(missing(seed)){
if (missing(seed)) {

set.seed(NULL)

} else {
if (!is.numeric(seed)) {

if (is.numeric(seed)){
set.seed(seed)
seed <- set.char.seed(seed)
}
seed <- set.char.seed(seed)
set.seed(seed)
}

Expand Down
9 changes: 5 additions & 4 deletions R/motivate.R
Original file line number Diff line number Diff line change
Expand Up @@ -40,14 +40,15 @@ motivate <- function(cat = "any",
valid_cats,
several.ok = FALSE)

if(missing(seed)){
if (missing(seed)) {

set.seed(NULL)

} else {
if (is.numeric(seed)){
set.seed(seed)
if (!is.numeric(seed)) {

seed <- set.char.seed(seed)
}
seed <- set.char.seed(seed)
set.seed(seed)
}

Expand Down

0 comments on commit c4ac47b

Please sign in to comment.