Help log all none match value from Excel upload

[notaclue]

Hi

I'm using the following to insert new prices to products in df via the product name from a excel upload, product name is the only option

here is the bit of code that does it,

  import <- readNewData(newDataFileName)
  
  if( !is.null(import)){    
    for(i in seq_len(nrow(import))){  #Make replacements
      col.to <- import$newVariable[i] 
      col.from <- import$lookupVariable[i]
      if(is.na(col.from)){ # apply to whole column
        data[col.to] <- import$newValue[i]
      } else { # apply to subset
        rows <- which(import$lookupValue[i] == data[[col.from]])
        data[rows,'now_cost'] <- import$newValue[i]
      }
    }   
  }      

I want to log the import$lookupValue[i] that are not matched so I can manually correct afterwards, can anyone help please. I works great for values it can find but I'm blind to what it can't match.

daffer

[hughjonesd]

Add a line like

if (length(rows) == 0) {
  warning("Didn't match row ", i, " with lookup value ", import$lookupValue[i])
}

to print a warning to standard error.