---
title: "duplicate check"
author: "Scary Scarecrow"
date: '2022-06-06'
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(dplyr)
```


# Duplicates

```{r}
dat<-read.csv("contactdup.csv")
dat |> 
  filter(duplicated(cbind(EMail,First_Name,Last_Name))) |> write.csv("duplicatecontacts.csv")
```


```{r}
dat |> 
  filter(EMail=="office@lahnerbau.at")
```





