日期栏与固定日期之间的差异

Question

shoot <- read.csv('shoot.csv')
finish <- as.Date(shoot$`Year of Incorporation`, format="%mm/%dd/%yyyy")
start <- 12/31/2016
date_diff <- as.data.frame(finish-start)

应该对此进行哪些更改以将输出作为数据集与31/12/2016之间的日期数？