library(jsonlite)
library(R.utils)
library(dplyr)
library(Hmisc)
library(data.table)

path<- "C:/Users/thood/Documents/R/TCGA/Unzipped"

#remove any global variables
rm(list=ls())

files <- list.files(path=path, full.names=TRUE)

dataframe<-read.table(files[1])

genenames<- data.frame(dataframe[,1])


dataset<-lapply(files, read.table,colClasses = c("NULL", NA))
dataset<-cbind(genenames, dataset)

write.csv(dataset, "C:/Users/thood/Documents/R/TCGA/All594.csv")


workingfile<-read.csv("C:/Users/thood/Documents/R/TCGA/All594_60483.csv")

names_files<- read.csv("C:/Users/thood/Documents/R/TCGA/FileNames.csv", header=FALSE)

workingfile