You could try it like this
id <- "0B-wuZ2XMFIBUd09Ob0pKVkRzQTA" # google file IDread.csv(sprintf("https://docs.google.com/uc?id=%s&export=download", id))