Hello,
I'm trying to submit my package to CRAN but receiving the following error message. object 'connectionString' not found even if it is parameter of get_DB_info(connectionString) function - see the function definition below error message. Please, can you help me to understand what should be fixed in the code so that I could successfully submit my package to CRAN? Thanks a lot for any of your help in advance. Best, Martin https://win-builder.r-project.org/incoming_pretest/180313_212715_RSQLS_16/00 check.log * checking examples ... ** running examples for arch 'i386' ... ERROR Running examples in 'RSQLS-Ex.R' failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: get_DB_info > ### Title: Get database info > ### Aliases: get_DB_info > > ### ** Examples > > get_DB_info(connectionString) Error in paste("", pathtocsvloader, " ", connectionString, " ", sql_task, : object 'connectionString' not found Calls: get_DB_info -> paste Execution halted ** running examples for arch 'x64' ... ERROR Running examples in 'RSQLS-Ex.R' failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: get_DB_info > ### Title: Get database info > ### Aliases: get_DB_info > > ### ** Examples > > get_DB_info(connectionString) Error in paste("", pathtocsvloader, " ", connectionString, " ", sql_task, : object 'connectionString' not found Calls: get_DB_info -> paste Execution halted * checking PDF version of manual ... OK * DONE Status: 2 ERRORs, 3 WARNINGs, 4 NOTEs ------------------------------------ get_DB_info(connectionString) ------------------------------------------------------------ #' Get database info #' #' This function retrieves basic info about database defined #' in SQL Server connection string. #' @param connectionString Connection string to SQL server #' @return Returns data.frame and data.table #' @export #' @examples #' get_DB_info(connectionString) #' @note How to set up SQL Server connection string see \link{set_connString}. Be also sure you have a permissions for access to sys.dm_db_index_usage_stats: #' check it with SELECT * FROM sys.dm_db_index_usage_stats. If not, contact your SQL Server admin. get_DB_info <- function(connectionString) { options(scipen=999) if (missing(connectionString)) { print("Connection string is missing!") return("Try it again") } pathtocsvloader <- gsub("/","\\\\",paste(system.file(package = "RSQLS")[1],"/Loader/csv_to_sql_loader.exe", sep = "")) pathtocsvloader <- replace_spaced_words(pathtocsvloader) pathtocsvloader <- gsub('.{1}$', '', pathtocsvloader) # logic for pathtocsvfiles variable pathtocsvfiles <- gsub("/","\\\\",paste(system.file(package = "RSQLS")[1],"/Data/", sep = "")) if (!endsWith(pathtocsvfiles, "\\")) { pathtocsvfiles <- paste(pathtocsvfiles,"\\", sep = "") } sqltabname <- "tempDBInfo" sqltabname <- gsub("\\[|\\]", "", sqltabname) if (length(strsplit(sqltabname,"\\.")[[1]]) > 1) { sqltabname_prev <- gsub("^[^.]*.", "", sqltabname) } else { sqltabname_prev <- sqltabname } sql_tab_name <- paste('"', sqltabname, '"', sep = "") # '"dbo.CFTC_Disaggregated_Raw_test"' sql_task <- paste('"dbinfo"', sep = "") real_pathtocsvfile <- paste('"', pathtocsvfiles, paste(sqltabname_prev, ".csv", sep = ""),'"', sep = "") file_to_be_deleted <- paste(pathtocsvfiles, paste(sqltabname_prev, ".csv", sep = ""), sep = "") ss <- paste('', pathtocsvloader, " ", connectionString, " ", sql_task, " ", real_pathtocsvfile, " ", "null", sep = "") # Call shell command oldw <- getOption("warn") options(warn = -1) sc <- shell(ss) if (file.exists(file_to_be_deleted)){ out <- data.table::fread(file_to_be_deleted, stringsAsFactors = FALSE, sep = "~", fill = TRUE) } else{ options(warn = oldw) stop('See the previous messages for more details.') } # Delete csv file if (file.exists(file_to_be_deleted)){ invisible(file.remove(file_to_be_deleted)) } else{ options(warn = oldw) stop('See the previous messages for more details.') } if( sc == 1 ) { options(warn = oldw) stop('See the previous messages for more details.') } else { options(warn = oldw) } return(out) } --- This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus [[alternative HTML version deleted]] ______________________________________________ R-package-devel@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-package-devel