RStudio ошибочно показывает предупреждения в скобках

Question

Я проверил свою функцию на ideone.com (https://ideone.com/Z2pVQp), потому что RStudio неправильно отображает предупреждающие знаки несоответствующих скобок рядом со строкой 1, 29, 34, 87 только после того, как вы сохранили файл.

Поскольку функция довольно велика, я могу опубликовать все это в разделе вопросов, но приведу, например, строки 29 - 34, которые могли бы помочь решить эту проблему.

   missinggames <-  map_df(1:nrow(missinggames), ~if(missinggames$Goals_team_home[.x] > missinggames$Goals_team_away[.x])
      mutate(missinggames[.x,], points_team_home =  3, points_team_away = 0) else if
      (missinggames$Goals_team_home[.x] == missinggames$Goals_team_away[.x])
        mutate(missinggames[.x,], points_team_home =  1, points_team_away = 1) else
          mutate(missinggames[.x,], points_team_home =  0, points_team_away = 3)
    )

Я что-то здесь упускаю или как я могу решить эту проблему?

Answer 1

Мы можем использовать case_when здесь:

library(dplyr)

missinggames %>%
  mutate(points_team_home = case_when(Goals_team_home > Goals_team_away ~3, 
                                      Goals_team_home == Goals_team_away ~ 1, 
                                      TRUE ~ 0), 
         points_team_away = case_when(Goals_team_home > Goals_team_away ~0, 
                                      Goals_team_home == Goals_team_away ~ 1, 
                                      TRUE ~ 3))