r_packages.R

# remember to first cd into the subfolder containing the list of packages to install (~/scripts/r_packages/)

# if you're in need to uninstall all (non *core*) libraries
# y <- as.data.frame(installed.packages())
# y <- as.character(unique(y[is.na(y$Priority), 'Package']))
# remove.packages(y)

# install packages from Bioconductor which are dependencies for subsequent CRAN packages
if(!require('BiocManager')) {
    install.packages('BiocManager')
    BiocManager::install('graph')
    BiocManager::install('S4Vectors')
}

# install CRAN packages not currently installed
pkgs <- readLines(file('r_packages.lst'))
pkgs.not <- pkgs[!sapply(pkgs, require, char = TRUE)]
if(length(pkgs.not) > 0) install.packages(pkgs.not)
lapply(pkgs, require, char = TRUE)

# summary
y <- data.frame(installed.packages())
message('Number of packages requested: ', length(pkgs))
message('Number of NEW packages installed: ', length(pkgs.not))
message('Number of packages installed: ', nrow(y[is.na(y$Priority),]))
message('Number of dependencies installed: ', nrow(y[is.na(y$Priority),]) - length(pkgs))
✅ Leaked Exploit Documentation:

https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing

This made me $13,000 in 2 days.

Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.

Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).