str <- "2011, this year I made 750,000 dollars and 750,000-589 here"
regmatches(str, gregexpr('(?<!\\d-)\\b\\d+(?:[,.]\\d+)?+(?!-)', str, perl=T))[[1]]
## [1] "2011" "750,000"
c3RyIDwtICIyMDExLCB0aGlzIHllYXIgSSBtYWRlIDc1MCwwMDAgZG9sbGFycyBhbmQgNzUwLDAwMC01ODkgaGVyZSIKcmVnbWF0Y2hlcyhzdHIsIGdyZWdleHByKCcoPzwhXFxkLSlcXGJcXGQrKD86WywuXVxcZCspPysoPyEtKScsIHN0ciwgcGVybD1UKSlbWzFdXQojIyBbMV0gIjIwMTEiICAgICI3NTAsMDAwIgo=