extra_samples.R

library(tidyverse)
library(here)
library(leaflet)
library(readxl)
library(janitor)
library(googlesheets4)
library(googledrive)

# no accession umber
no_voucher <- c(406,409,410,422,433,447,448,451,456,457,461,462,463,465,466,467,493,673,684,686,687,707,708,813,814,885,904,957,958,960,961,966,968,971,1167,1189,1233,1234,1235,1984,1985)


Matt returned
bold <- c(405, 606, 608, 1535, 1545, 1556, 1579, 1580, 1581, 1582, 1583, 1584, 1585, 1588, 1589, 1590, 1591, 1592, 1593, 1594, 1595, 1598, 1600, 1602, 1604, 1605, 1606, 1607, 1610, 1613, 1614, 1615, 1617, 1618, 1619, 1620, 1621, 1622, 1625, 1626, 1627, 1628, 1630, 1631, 1632, 1635, 1636, 1637, 1638, 1639, 1640, 1641, 1643, 1644, 1646, 1647, 1648, 1650, 1651, 1652, 1653, 1654, 1655, 1657, 1659, 1660, 1661, 1662, 1663, 1664, 1665, 1666, 1667, 1668, 1669, 1670, 1671, 1672, 1674, 1675, 1676, 1677, 1678, 1679, 1680, 1682, 1683, 1684, 1685, 1688, 1689, 1690, 1691, 1692, 1693, 1694, 1696, 1697, 1698, 1699, 1725, 1726, 1727, 1728, 1729, 1730, 1731, 1732, 1733, 1734, 1735, 1736, 1737, 1738, 1739, 1740, 1741, 1742, 1760)

### Load file into R

pml <- drive_get("PTM - Master List")

ptm <- read_sheet(pml,sheet = 1,skip = 1, col_types = "iccccccDcccccccccccDcccccccnnccccc-")

ptm %>%
  filter(ptm$`Extra DNA Sample` == "Yes")

ptm %>% 
  group_by(ptm$`Extra DNA Sample`) %>% 
  summarise()