if (FALSE) {
## Note that users must have the necessary permissions in the database
## to be able to modify data through the use of these functions
# library(Rlabkey)
df <- data.frame(
name=c("test1","test2","test3"),
customInt=c(1:3),
customString=c("aaa", "bbb", "ccc")
)
importedInfo <- labkey.query.import(
"http://localhost:8080/labkey",
folderPath="/apisamples", schemaName="samples", queryName="SampleType1",
toImport=df, options=list(insertOption = "MERGE", auditBehavior = "DETAILED")
)
importedInfo$rowCount
}
Run the code above in your browser using DataLab