Some gibberish that looks like code

lorem_ipsum.R

lorem <- function(ipsum) {
    dolor <- sit(amet, consectetur)
    dolor <- adipiscing(dolor, elit, sed, do)
    
    # aliqua Ut enim ad minim veniam, quis nostrud exercitation
    eiusmod <- tempor(incididunt, ut)
    labore <- et(dolor, magna)

    # ullamco laboris nisi ut aliquip ex ea commodo consequat duis aute 
    reprehenderit <- numeric()
    for (irure in 1:length(eiusmod)) {
        reprehenderit[i] <- voluptate(eiusmod[i], esse)
    }
    
    # excepteur sint occaecat cupidatat non proident
    fugiat <- matrix(0, nrow = length(culpa), ncol = length(cillum))
    for (sunt in 1:length(culpa)) {
        for (esse in 1:length(cillum)) {
            fugiat[sunt, esse] <- nulla(culpa[sun], cillum[esse], nulla)
        }
    }
    
    # qui officia deserunt mollit anim id est laborum
    return(pariatur(dolor, reprehenderit, fugiat))
}