if 和 else 与向量和条件不能正常工作

Question

I have a data.frame called sites_sp where I'm trying to run some functions based on if and else statements. sites_sp has the following structure:

structure(list(x = c(-50.1298257841559, -49.9523708108406, -49.8600298829818, 
-49.8590735594872, -49.8600022102151, -49.680556540172), y = c(-29.2498490060132, 
-29.1594734717135, -29.0700140387022, -28.9795033961473, -28.8900003372153, 
-28.8945716273705), ua = c("ua_1", "ua_4", "ua_10", "ua_15", 
"ua_21", "ua_23"), occ = c(0, 0, 0, 0, 0, 0), PC1 = c(0.403336553595704, 
-0.209623013249306, -2.38969068562858, -1.0875631345167, 0.0424075103800285, 
-1.69180948954307), PC2 = c(-3.62346919232857, -4.03856503375702, 
-1.46862258765078, -1.77908267718137, -2.0250031837701, -0.952927464794925
), PC3 = c(-0.375601733371977, -0.122982261539736, -0.365818414058142, 
-0.111150398019996, 0.287459840686463, 0.034973266100254), PC4 = c(-1.31153262462204, 
-0.899941801783298, -1.35652371929479, -1.98693913441246, -1.75393016363327, 
-0.788097574287776), PC5 = c(1.42830395246321, 1.55155187773266, 
1.33933059031444, 0.0760013457702872, 0.588191290690648, -0.408003273953271
)), row.names = c(NA, 6L), class = "data.frame")

What I'm doing is an if and else statements of form:

for(s in sp){ 
 
if(sum(sites_sp$occ >= 30)){

     pa_data <- st_as_sf(sites_sp, 
                    coords = c("x", "y"), 
                    crs = crs(env_terra))
    ...

    } else {

    block of functions for the statement being FALSE

    }

}

RELEVANT EDIT: From what I can tell, the function is going directly to the else block even though it should not — since sum(sites_sp$occ) is bigger than 30 for the first s in sp

I can't really understand what's going on. If I try sum(sites_sp$occ) it returns for me a value of 37, implying that the function inside the if block ( pa_data <- st_as_sf()... ) should run normally. What am I doing wrong here? If more information is needed, please tell me.

Answer 1

Ok, guys...I'm kinda dumb.

The problem is simply here:

if(sum(sites_sp$occ >= 30)){

Should be written as

if(sum(sites_sp$occ) >= 30){

My condition was inside the sum