I have two files that I am working with. Both have thousands of values, so some of the simpler/more traditional formatting methods with vector lists etc. don’t work. The biggest issues I am running into are that the values I am working with are different lengths and that the closures are not subsettable. I am reluctant to pad the smaller file so that they are the same length, so I have been using setnames rather than match or another function.

The smaller file is the main one I am manipulating and the one that needs the column names to be replaced. It has over 6000 columns and is set up like so:

x           A1     A2     A3     A4     A13     A14
sample1     928    29     0      298    8392    138
sample2     0      239    903    13     424     2
sample3     348    930    1938   23     233     492
sample7     843    349    90     239    0       239
sample8     234    349    30     39     8249    845
sample19    849    0      1235   14     149     982

Neither the rows nor columns are sequential, as some have been removed. (This is why the files are no longer the same size/length.)

The second file is made up of only two columns, and matches the names with string values.

a    x
A1  TIAHKGS
A2  ASJKHFSLA
A3  ASKJLHFAS
A4  JSHDKGFK
A5  ASHJFSKLHF
A6  ASLHFDASF
A7  ASHGFKJ

Etc. The string values are not all the same length, but the column is sequential. I am trying to replace the column names of the first file with the matching values from the second column of the second file.

The two methods that were closest to solving the problem were the match and setnames function. I was worried that match wouldn’t be able to properly handle skipping values, so my latest attempt used setnames. This seemed? to fix the problem with different length files, but now I am receiving Error in data.frame$FileKey : #object of type 'closure' is not subsettable

Also, I am using vroom instead of readr because it is faster with large files.

library(vroom)
library(data.table)

MainFile <- vroom("File1.csv")
FileKey <- vroom("File2.csv")

old <- colnames(MainFile)
new <- FileKey[,c(2)]

setnames(MainFile, data.frame$old, data.frame$new, skip_absent=TRUE)
Error in data.frame$FileKey : 
#object of type 'closure' is not subsettable

names(MainFile)

Any advice is appreciated. I’m not sure if there is a way to melt or bind the files together that avoids both problems?

Thank you!