## Not run:
# # 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)## End(Not run)
Run the code above in your browser using DataLab