[R-pkg-devel] Weird error message during R CMD Check

[Duncan Murdoch]

On 13/03/2018 4:53 PM, martiankabe at gmail.com wrote:
> Hello,
> 
>   
> 
> I'm trying to submit my package to CRAN but receiving the following error
> message.
> 
>   
> 
> object 'connectionString' not found

Your example never defined a variable called connectionString, so you 
can't pass it to a function.

Duncan Murdoch

> 
>   
> 
> 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 at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-package-devel
>