Moving data request functionality to tools!

Author: jevansbio

NAMESPACE

@@ -14,15 +14,12 @@ export(checkNames)
 export(checkOpenSession)
 export(checkRetrievedMatchDeployed)
 export(connectSeatrack)
-export(create_readme)
-export(data_request)
 export(deleteActivity)
 export(deleteFiles)
 export(deletePositions)
 export(deleteRecords)
 export(disconnectSeatrack)
 export(downloadFiles)
-export(export_data_package)
 export(getActiveSessions)
 export(getColonies)
 export(getFileArchiveSummary)
@@ -42,6 +39,7 @@ export(loadFile)
 export(loadPosdata)
 export(pruneRecordings)
 export(refreshViews)
+export(set_credentials_renviron)
 export(sfGmapPlot)
 export(uploadFiles)
 export(viewDatabaseModel)

R/authentication.R

@@ -9,11 +9,13 @@
 #' @param user_name Username to access the seatrack database. If not provided, user will be prompted.
 #' @param password Password to access the seatrack database If not provided, user will be prompted.
 #'
-#' @example \dontrun{
+#' @examples
+#'  \dontrun{
 #'  set_credentials_renviron() # will prompt
 #'  set_credentials_renviron("foo","bar") #only do this in the console
 #' }
 #' @export
+#' @concept db_connection
 set_credentials_renviron <- function(user_name = NULL, password = NULL) {
     if (is.null(user_name)) {
         user_name <- readline("Enter your username:")

R/data.R

@@ -55,3 +55,12 @@ NULL
 #' @usage data(sampleRingHistory)
 #' @concept data
 NULL
+
+# Fix the commenting error here too
+#' schema_dict
+#'
+#' @docType data
+#' @name schema_dict
+#' @usage data(schema_dict)
+#' @concept data
+NULL

R/data_requests.R

@@ -61,9 +61,6 @@ reference:
 - title: logger_info
   desc: Functions for reading and writing logger information to the database.
   contents: has_concept("logger_info")
-- title: Data request handling
-  desc: Functions for managing data requests in the database.
-  contents: has_concept("data_requests")
 - title: Files
   desc: Functions for reading and writing file information to the database and FTP
     server.

_pkgdown.yml

@@ -0,0 +1,2 @@
+schema_dict <- yaml::read_yaml(system.file("yaml", "output_schema.yaml", package = "seatrackR"))
+usethis::use_data(schema_dict, overwrite = TRUE)