You can try this
#Table 1 - Approved Canada Emergency Wage Subsidy (CEWS) claims by period and province/territory of business address
cews_prov_src = "https://www.canada.ca/content/dam/cra-arc/serv-info/tax/business/topics/cews/statistics/cews_tbl1.csv"
data1 <- read.csv(cews_prov_src, skip = 2, col.names = c("Claim_Period",
"Province",
"Applications_Approved_YTD",
"Number_Eligible_Employees",
"Number_Eligible_Leave_with_Pay",
"Number_Employees_Supported",
"CEWS_Approved_YTD",
"Average_CEWS_Per_Employee",
"Percent_Approved_Applications_Period"),
strip.white = TRUE)
data <- data1[1:(grep("^Notes:", data1[, 1]) - 1), ]
or perhaps even better
data <- data1[1:(grep("^Notes:", data1[, 1]) - 2), ]
Hope this helps.