R terra::flowAccumulation(terrain(“flowdir”)) fails to create valid river network

I want to evaluate flow accumulation in R instead of QGIS using the R Terra.