Update default csv name in error message

R/db.R

@@ -75,7 +75,7 @@ sd_database <- function(
 
     # Authentication/Checks for NULL Values
     if (is.null(host) | is.null(dbname) | is.null(port) | is.null(user) | is.null(table)) {
-        message("One or more of the required arguments in sd_database() are NULL, so the database is NOT connected; writing responses to local data.csv file *for previewing purposes only*.")
+        message("One or more of the required arguments in sd_database() are NULL, so the database is NOT connected; writing responses to local preview_data.csv file *for previewing purposes only*.")
         return(NULL)
     }