dbUploadSurvey: Upload Survey Metadata to an Acoustics Database

Description

Upload survey metadata to tblSurvey in an acoustics database.

Usage

dbUploadSurvey(db.name = "acoustics", uid, pwd, survey.meta,
update.query = FALSE, tz, ...)

Arguments

survey.meta

Object containing survey metadata, typically gathered in one or more invocations of fileCopyRename.

db.name

Name of the ODBC connector data source corresponding to the acoustics database.

uid

User ID to allow ODBC connector to connect to database, if not present in ODBC connector.

pwd

Password to allow ODBC connector to connect to database, if not present in ODBC connector.

update.query

Logical value to control the type of query. See Details.

Time zone, if not in file names or metadata. See Details.

...

Additional arguments to RODBC::odbcConnect.

Value

Invoked for its side effect, which is to insert the detection results into tblResult in an acoustics database. Successful upload is marked by a report of the upload time; unsuccessful upload will report any errors encountered.

Details

dbUploadSurvey assumes a database structure identical to that provided in the acoustics schema. If the username and password are present in the ODBC datasource they do not need to be provided. It is possible to store only the username in the datasource and enter a password, but the reverse will not work.

Surveys recorded as wav files have metadata read from the header of the file automatically; these data can be uploaded to the database in a single call to dbUploadSurvey. Metadata for surveys recorded in proprietary compressed file formats cannot be gathered in the same manner; some basic metadata is gleaned from the initial transfer of the surveys from memory-card to storage drive, and the rest is read after the conversion from proprietary format to wav file. If recording in a proprietary format, normal operation would thus call for two invocations of dbUploadSurvey: the first with partial metadata, and the second as an update query to fill in the missing values. Therefore, standard use (update.query=FALSE) passes a simple INSERT INTO query to the database and parses the fields appropriately. When update.query=TRUE, the assumption is made that many of the fields in survey.meta have already been entered into the database, but some remain NULL.

If no 'fldOriginalDateModified' exists in the metadata it will be automatically generated from the date coded in the file name during fileCopyRename.

Examples

Run this code

# metadata for wav files:
metadata<-fileCopyRename(
        from='~/media/SDcard', 
        to='~/Desktop/Acoustics/Recordings', 
        csv.dir='~/Desktop/Acoustics/Results', 
        loc.prefix='MABI01', 
        ext='wav', 
        CardRecorderID=1, 
        kaleidoscope=FALSE)
        
# If using the 'acoustics' schema verbatim:
dbUploadSurvey(survey.meta=metadata)

# 'acoustics' schema, different database name:
dbUploadSurvey(
    survey.meta=metadata, 
    db.name = "LocalSQLdb", 
    uid = "EntryOnly", 
    pwd = "07H23BBM")

# metadata for wac files:
metadata<-fileCopyRename(
        from='~/media/SDcard', 
        to='~/Desktop/Acoustics/Recordings', 
        csv.dir='~/Desktop/Acoustics/Results', 
        loc.prefix='MABI01', 
        ext='wac', 
        CardRecorderID=1)
        
# If using the 'acoustics' schema verbatim:
dbUploadSurvey(survey.meta=metadata)

# 'acoustics' schema, different database name:
dbUploadSurvey(
    survey.meta=metadata, 
    db.name = "LocalSQLdb", 
    uid = "EntryOnly", 
    pwd = "07H23BBM")

# After converting wac files to wav files use update.query=TRUE:
new.metadata<-fileCopyRename(
        from='~/Desktop/Acoustics/Recordings', 
        to='~/Desktop/Acoustics/Surveys', 
        csv.dir='~/Desktop/Acoustics/Results', 
        loc.prefix='MABI01', 
        ext='wav', 
        CardRecorderID=1, 
        metadata.only=TRUE)
        
# If using the 'acoustics' schema verbatim:
dbUploadSurvey(survey.meta=new.metadata,update.query=TRUE)

# 'acoustics' schema, different database name:
dbUploadSurvey(
    survey.meta=new.metadata, 
    db.name = "LocalSQLdb", 
    uid = "EntryOnly", 
    pwd = "07H23BBM", 
    update.query=TRUE)