Switch in r

Published by onesixx on 18-10-2618-10-26

switch(statement,item1,item2,item3,…,itemN, default)

# by name with complex named expression
switch("bar", foo={"one"}, bar={"two"})
[1] "two"

# by index
switch(1, "one", "two")
[1] "one"
# by index with complex expressions
switch(2, {"one"}, {"two"})
[1] "two"
# by index with complex named expression
switch(1, foo={"one"}, bar={"two"})
[1] "one"

uFuncSwitch <- function(x){
	switch(x,
		"+" = str_c("Addition    : ", num1 + num2) %>% print(),
		"-" = str_c("Subtraction : ", num1 - num2) %>% print(),
		print("choose another operator")
	)
}

> num1 <- 6
> num2 <- 4
> uFuncSwitch('+')
[1] "Addition : 10"
> uFuncSwitch('*')
[1] "choose another operator"

https://adv-r.hadley.nz/control-flow.html#switch

x_option <- function(x) {
  switch(x,
    a = "option 1",
    b = "option 2",
    c = "option 3",
    stop("Invalid `x` value")
  )
}

uFuncSwitch <- function(x){
	switch(x,
		str_c("Addition    : ", num1 + num2) %>% print(),
		str_c("Subtraction : ", num1 - num2) %>% print(),
		print("choose another operator")
	)
}

> num1 <- 6
> num2 <- 4
> uFuncSwitch(1)
[1] "Addition    : 10"
> uFuncSwitch(1.6)
[1] "Addition    : 10"
> uFuncSwitch(2.1)
[1] "Subtraction : 2"
> uFuncSwitch(3)
[1] "choose another operator"

Switch in r

https://adv-r.hadley.nz/control-flow.html#switch

https://www.cyclismo.org/tutorial/R/scripting.html#switch-statement

onesixx

R Basic

Terminal Progress Bars (tqdm in r)

R Basic

error Setting LC_ R

R Basic

날짜없는 time

Switch in r

onesixx

Related Posts