df <- read.csv(paste("/file name", 2010, ".CSV", sep = ""), header = TRUE)

myfunction <- function(date){df <- read.csv(
                             paste("/file name", date, ".CSV", sep = ""),
                             header = TRUE)
                            }