r Replace only some table values with values from alternate table

Question

This is not a \"vlookup-and-fill-down\" question.

My source data is excellent at delivering all the data I need, just not in in a usable form. Recent changes in volume

Answer 1

Starting with the tables:

  >inv
          Item OnHand Demand OnPO
 1:   10100200    600   3300 2700
 2:   10100201     NA     NA   NA
 3:   10100202     39     40    1
 4:   10100203      0     40   40
 5:   10100204     NA     NA   NA
 6: 10100205-A     NA     NA   NA
 7:   10100206     40     70   30
 8:   10100207      0    126  126
 9:   10100208      0     10   10
10:   10100209      0     10   10
11:   10100210      0    250  250

> svc
         Item Rcv'd Backordered
1:   10100201     0          20
2:   10100204     0         100
3: 10100205-A    44          18

After far more cursing than I'd like to admit, the simple solution that works on the above test data, and my live data proved to be:

# Insert OnHand and OnPO data from svc
for (i in 1:nrow(inv)) {
  if(inv$Item[i] %in% svc$Item) {
    x <- which(svc$Item == inv$Item[i])
    inv$OnPO[i] <- svc$Backordered[x]
    inv$OnHand[i] <- svc$`Rcv'd`[x]
  } 
    else{}
}
# cleanup 
inv[is.na(inv)] <- 0

Is there a simpler or more obvious method that I've overlooked?