I am sorry, I want to believe you, but this does not seem to be an R file, or even a textfile
# Download the file
url <- "https://gubox.box.com/shared/static/4k011vrk5381hkmmadb9dfbyc1x20c98.r"
script <- tempfile()
download.file(url, script, mode = "wb")
# Let's what is inside
readLines(script, n = 5)
#> Warning in readLines(script, n = 5): la ligne 3 contient un caractère nul
#> Warning in readLines(script, n = 5): la ligne 5 contient un caractère nul
#> [1] "RDX2"
#> [2] "X"
#> [3] ""
#> [4] "“¼d?á\177¦ÚJžþ?á^"
#> [5] "”&Ö›?án(¦žJ?áwt\030\033ª=?á~7Ãïì.?áo8Õèì!?á]5\021žã?á4'Ð9TÍ?á¦äªa×}?áHY\v!d-?ákÇ\022{é\027?á’"
# I can confirm it is not readable in notepad++ either.
# Does not seems to be an R script, or even a text file.
# Can we try guessing the MIME TYPE
library(simplemagic)
get_content_type(script)
#> [1] "???"
# No we can't...
unlink(script)
Created on 2018-07-07 by the reprex package (v0.2.0).
This is also what I get in Notepad++
Does not seem to me an encoding issue. The file does not seem to be a text file. More like a binary of some sort.
Unfortunately, with this current file, I can't help much... 