Substitua as citações inteligentes
cpd <- read.csv(url(“https://pub.data.gov.bc.ca/datasets/176284/BC_Liquor_Store_Product_Price_list.csv?accessType=DOWNLOAD”))
com aspas duplas ASCII regulares:
cpd <- read.csv(url("https://pub.data.gov.bc.ca/datasets/176284/BC_Liquor_Store_Product_Price_list.csv?accessType=DOWNLOAD"))