Dupree with markers

gistfile1.txt

library(tidyverse)
dups <- dupree::dupree_dir(filter = "\\.[rR]$") 
markers <- dups %>% 
  as_tibble() %>% 
  mutate(message = paste("duplicate", row_number())) %>% 
  mutate_all(as.character) %>% 
  pivot_longer(c(line_a, line_b, file_a, file_b), names_to = "name", values_to = "val") %>% 
  separate(name, c("type", "letter")) %>% 
  pivot_wider(names_from = type, values_from = val) %>% 
  transmute(
    type = "info",
    line = as.numeric(line),
    file,
    message,
    column = 1
  )

rstudioapi::sourceMarkers("dupree", markers)