R/makeTable.R

In Sage-Bionetworks/synapseCopyProject: Utility functions for interacting with Synapse

makeTable <- function(df,tableName,projectId){
  library(synapseClient)
  synapseLogin()
  tcresult<-as.tableColumns(df)
  cols<-tcresult$tableColumns
  fileHandleId<-tcresult$fileHandleId
  project<- synGet(projectId)
  schema<-TableSchema(name=tableName, parent=project, columns=cols)
  table<-Table(schema, fileHandleId)
  table<-synStore(table, retrieveData=TRUE)
}