Comment utiliser les instructions try dans R?

Question

J'essaie donc de faire défiler des données et de les utiliser dans mon code. L'endroit où je besoin de cette chose essayer est à l'adresse suivante:

for (number in numbers) { 
    CTV_volume <- CTV[ which(CTV$Key==number), ]$volume 
    PTV_volume <- PTV[ which(PTV$Key==number), ]$volume 
    ITV_volume <- ITV[ which(ITV$Key==numbers), ]$volume 

    large_volume <- large_margin_vol_calc(radius_calc(CTV_volume), a_large, b_large) 
    small_volume <- small_margin_vol_calc(radius_calc(CTV_volume), a_small, b_small) 
} 

La chose est que le calcul CTV_volume dans les deux dernières lignes (large_volume et small_volume) dépend des données de la première ligne ci-dessus (CTV_volume). Cependant, pour chaque itération de la boucle, il y a une chance qu'il n'y ait pas de CTV pour cette clé/ce numéro particulier, et à la place j'ai besoin d'en utiliser une autre, c'est-à-dire ITV. Mais avant tout, j'en ai besoin pour utiliser le CTV en premier, si c'est le cas, sinon le mot ITV.

Comment cela est-il accompli dans R?

Answer 1

Si vous obtenez un vecteur vide, c'est-à-dire numeric(0), cela ne constitue pas une erreur. Si vous utilisez tryCatch() comme indiqué ci-dessous, le résultat ne changera pas.

for (number in numbers) { 
    CTV_volume <- CTV[ which(CTV$Key==number), ]$volume 
    PTV_volume <- PTV[ which(PTV$Key==number), ]$volume 
    ITV_volume <- ITV[ which(ITV$Key==numbers), ]$volume 

    tryCatch({ 
    large_volume <- large_margin_vol_calc(radius_calc(CTV_volume), a_large, b_large) 
    small_volume <- small_margin_vol_calc(radius_calc(CTV_volume), a_small, b_small) 
    }, 
    error = function(e) { 
     #what should be done in case of exeption? 
     str(e) # prints structure of exeption 
     large_volume <- large_margin_vol_calc(radius_calc(ITV_volume), a_large, b_large) 
     small_volume <- small_margin_vol_calc(radius_calc(ITV_volume), a_small, b_small) 
    } 
) 
} 

Au lieu de cela ce que vous voulez sans doute faire est de vérifier si CTV_volume a la durée prévue.

for (number in numbers) { 
    CTV_volume <- CTV[ which(CTV$Key==number), ]$volume 
    PTV_volume <- PTV[ which(PTV$Key==number), ]$volume 
    ITV_volume <- ITV[ which(ITV$Key==numbers), ]$volume 

    if (length(CTV_volume) > 0) { 
    large_volume <- large_margin_vol_calc(radius_calc(CTV_volume), a_large, b_large) 
    small_volume <- small_margin_vol_calc(radius_calc(CTV_volume), a_small, b_small) 
    } else { 
    large_volume <- large_margin_vol_calc(radius_calc(ITV_volume), a_large, b_large) 
    small_volume <- small_margin_vol_calc(radius_calc(ITV_volume), a_small, b_small) 
    } 
}