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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.