Update checks.R

[mskyttner]

Would you like to capture "more" of this kind?

kth_diva_pubs() |> select(PID, Title) |> mutate(is_match = grepl("[Cc]hairs'* [Ww]elcome" , Title)) |> filter(is_match)

gives

# A tibble: 6 × 3
      PID Title                     is_match
    <dbl> <chr>                     <lgl>   
1  818696 UM3I 2014 chairs' welcome TRUE    
2 1046745 Chairs' welcome           TRUE    
3 1591407 General Chairs' Welcome   TRUE    
4 1666820 DIS 2021 Chairs Welcome   TRUE    
5 1783812 Chairs' welcome           TRUE    
6 1812695 Chairs' Welcome           TRUE    

If you give thumbs up I will use [Cc]hairs'* [Ww]elcome instead of Chairs'' [Ww]elcome....

[mskyttner]

Will be adressed in #150