Let's Have A Chat
Learn How We Served 100+ Global Device Brands with our Products & Get Free Sample!!!
con <- file("yourfile.r", "rb") raw_content <- readBin(con, raw(), file.size("yourfile.r")) obj <- unserialize(raw_content) This works only if the file is a raw serialization stream.
readLines("yourfile.r", n = 5) # if text, you'll see code Use:
(if it contains a function)
dput(getAnywhere("function_name")) or for entire loaded object:
load("yourfile.r") # loads object(s) into environment # or data <- readRDS("yourfile.r") Then inspect structure:
dput(data, file="reconstructed.R")
file yourfile.r or inside R:
con <- file("yourfile.r", "rb") raw_content <- readBin(con, raw(), file.size("yourfile.r")) obj <- unserialize(raw_content) This works only if the file is a raw serialization stream.
readLines("yourfile.r", n = 5) # if text, you'll see code Use: decompile progress .r file
(if it contains a function)
dput(getAnywhere("function_name")) or for entire loaded object: con <- file("yourfile
load("yourfile.r") # loads object(s) into environment # or data <- readRDS("yourfile.r") Then inspect structure: "rb") raw_content <
dput(data, file="reconstructed.R")
file yourfile.r or inside R: