one more [1]

ajdamico · Mar 22, 2015 · 2d5952f · 2d5952f
1 parent ea12f5f
commit 2d5952f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/American National Election Studies/download and import.R b/American National Election Studies/download and import.R
@@ -285,7 +285,7 @@ for ( curStudy in seq( length( files.to.download ) ) ){
 
 		# store the basename of the file,
 		# replacing the extension with `.rda`
-		bn <- gsub( 'sav|por|dta' , 'rda' , basename( fp ) )
+		bn <- gsub( 'sav|por|dta' , 'rda' , basename( fp[ 1 ] ) )
 
 		# convert all column names in the data.frame to lowercase
 		names( x ) <- tolower( names( x ) )