variable not registering in for loop [duplicate]

This seems to be a basic problem. I am attempting to loop through a list of variables to determine the shapiro-wilk statistic. However, the var is not registering anything in the loop. It appears as "NULL (empty)" in the environment window of RStudio.

The test works fine outside of the for loop. Any thoughts on what needs to be corrected here?

library(broom)    
data = "some data.csv"    
vars = list("var1", "var2")
     for (var in names(vars)) {    
          sw <- tidy(shapiro.test(data$var))
          write.csv(sw, file = "shapirowilk_pvalue_" + var + ".csv")
}

Thanks in advance

EDIT1 Following the advice in the comments, the revised (and now working) code is:

vars = c("var1", "var2")
for (var in vars) {
  sw <- tidy(shapiro.test(Data[[var]]))

The syntax for the write.csv is not working...

EDIT2 The full working code is below, which writes to a text file:

sw_pvalues <- data.frame()
vars = c("var1", "var2")
for (var in vars) {

  sw <- tidy(shapiro.test(Data[[var]]))

  tempvalues <- cbind(var,sw)
  colnames(tempvalues) <- c('variable', 'sw_stat', 'pvalue', 'method')
  sw_pvalues = rbind(sw_pvalues, tempvalues)

}
write.csv(sw_pvalues, file = "shapirowilk_pvalues.csv")