为了提供一些背景信息,我正在寻找一个程序,该程序将通过Caesar密码进行加密和解密,并且我已经为这两个函数创建了很好的代码。但是,当我尝试将它们合并为一个代码时,我发现它始终会忽略我已有的if语句,并将始终尝试对用户输入的内容进行加密。任何帮助将非常感激!
all_numeric <- data.frame(x = 1000, y = 0.34, z = 500000)
all_numeric %>%
mutate(x = formatC(x, big.mark = ","),
y = scales::percent(y)) %>%
gather(key, value)
#> key value
#> 1 x 1,000
#> 2 y 34.0%
#> 3 z 5e+05
答案 0 :(得分:3)
or 'Encrypt'
这永远是真的