Question

在许多语言中，有一条名为break的指令告诉解释器在当前语句之后退出交换机。如果省略它，则在处理完当前案例后切换 fall-through ：

switch (current_step)
{
  case 1: 
    print("Processing the first step...");
    # [...]
  case 2: 
    print("Processing the second step...");
    # [...]
  case 3: 
    print("Processing the third step...");
    # [...]
    break;
  case 4: 
    print("All steps have already been processed!");
    break;
}

如果您想要通过一系列传递条件，这样的设计模式会非常有用。

据我所知，如果程序员忘记插入break语句，但是这会导致错误，但是默认情况下会破坏多种语言，并且包含一个fallthrough关键字（例如Perl中的continue）。

按照设计，R开关在每种情况结束时也默认断开：

switch(current_step, 
  {
    print("Processing the first step...")
  },
  {
    print("Processing the second step...")
  },
  {
    print("Processing the third step...")
  },
  {
    print("All steps have already been processed!")
  }
)

在上面的代码中，如果current_step设置为1，则输出只会是"Processing the first step..."。

在R中是否有任何方法可以强制切换案例落入以下情况？

Answer 1

switch()似乎无法实现此类行为。正如评论中所建议的那样，最好的选择是实现我自己的版本。

因此，我将更新推送到我的optional包以实现此功能（CRAN）。

通过此更新，您现在可以在模式匹配函数match_with中使用fallthrough语句。

问题中的设计模式可以通过以下方式再现：

library(optional)
a <- 1
match_with(a
    1, fallthrough(function() "Processing the first step..."),
    2, fallthrough(function() "Processing the second step..."),
    3, function() "Processing the third step...",
    4, function() "All steps have already been processed!"
)
## [1] "Processing the first step..." "Processing the second step..." "Processing the third step..."

您可以观察match_with()与switch()非常相似，但它具有扩展功能。例如。模式可以是列表或功能序列，而不是简单的比较对象：

library("magrittr")
b <- 4
match_with(a,
  . %>% if (. %% 2 == 0)., 
  fallthrough( function() "This number is even" ),
  . %>% if ( sqrt(.) == round(sqrt(.)) ).,  
  function() "This number is a perfect square"
)
## [1] "This number is even" "This number is a perfect square"

R：如何制作切换声明

1 个答案: