R Change Base Package Function

The name of the pictureThe name of the pictureThe name of the pictureClash Royale CLAN TAG#URR8PPP

R Change Base Package Function



I had an error with installing R packages (unable to move temporary file), but it can be solved by editing utils:::unpackPkgZip to increase the time between the unzipping, i.e.


unable to move temporary file


utils:::unpackPkgZip


trace(utils:::unpackPkgZip, edit = TRUE)



and on line 142 I increase


Sys.sleep(0.5)



to 2.5. My question is if there is a way to do this automatically on startup, or to just change the function altogether, so I do not have to repeat this every session.



I tried to put


unlockBinding("unpackPkgZip", getNamespace("utils"))
utils::assignInNamespace("unpackPkgZip", new_fct, "utils", getNamespace("utils"))
lockBinding("unpackPkgZip", getNamespace("utils"))



where new_fctis the function with changed value, in my .Rprofile`s .First() function, but then I get


new_fct


.First()


Error in utils::assignInNamespace("unpackPkgZip", function(pkg, pkgname, :
locked binding of ‘unpackPkgZip’ cannot be changed



I think it is because .First() executes before .First.sys()


.First()


.First.sys()



Edit: I just realized that in assignInNamespaceitself, it states


assignInNamespace


if (ns_name %in% tools:::.get_standard_package_names()$base)
stop("locked binding of ", sQuote(x), " cannot be changed",
domain = NA)



So I suppose it is not possible.




1 Answer
1



You don't need to modify the function itself,
you can let trace execute code at specified lines with its at parameter.
Its documentation states:


at



When the at argument is supplied, it can be a vector of integers referring to the substeps of the body of the function (this only works if the body of the function is enclosed in ...). In this case tracer is not called on entry, but instead just before evaluating each of the steps listed in at. (Hint: you don't want to try to count the steps in the printed version of a function; instead, look at as.list(body(f)) to get the numbers associated with the steps in function f.)


at



Take cat as an example:


cat


as.list(body(cat))
[[1]]
`{`

[[2]]
if (is.character(file)) if (file == "") file <- stdout() else if (substring(file,
1L, 1L) == "|")
file <- pipe(substring(file, 2L), "w")
on.exit(close(file))
else
file <- file(file, ifelse(append, "a", "w"))
on.exit(close(file))


[[3]]
.Internal(cat(list(...), file, sep, fill, labels, append))



The default behavior:


system.time(cat("I'm fastn"))
I'm fast
user system elapsed
0 0 0



Now with injected code:


trace(cat, quote(Sys.sleep(2)), at=3L, print=FALSE)

system.time(cat("now I'm slown"))
now I'm slow
user system elapsed
0.008 0.000 2.001






By clicking "Post Your Answer", you acknowledge that you have read our updated terms of service, privacy policy and cookie policy, and that your continued use of the website is subject to these policies.

Comments

Post a Comment

Popular posts from this blog

Executable numpy error

Image
Clash Royale CLAN TAG #URR8PPP Executable numpy error I'm trying to create an executable file for my code. I've already tried with cx_Freeze and with pyinstaller. Both gives me the same error, which is: "Missing required dependencies 0.format(missing_dependencies))" PS C:UsersGustavoDesktopbuildexe.win32-3.6> python AgendaOficial.py C:UsersGustavoAppDataLocalProgramsPythonPython36-32python.exe: can't open file 'AgendaOficial.py': [Errno 2] No such file or directory PS C:UsersGustavoDesktopbuildexe.win32-3.6> .AgendaOficial.exe Traceback (most recent call last): File "C:UsersGustavoAppDataLocalProgramsPythonPython36-32libsite-packagescx_Freezeinitscripts__startup__.py", line 14, in run module.run() File "C:UsersGustavoAppDataLocalProgramsPythonPython36-32libsite-packagescx_FreezeinitscriptsConsole.py", line 26, in run exec(code, m. dict ) File "AgendaOficial.py", line 8, in File "C:UsersGustavoAppDataLocal...
Read more

PySpark count values by condition

Image
Clash Royale CLAN TAG #URR8PPP PySpark count values by condition I have a DataFrame, a snippet here: [['u1', 1], ['u2', 0]] basically one string ('f') and either a 1 or a 0 for second element ('is_fav'). What I need to do is grouping on the first field and counting the occurrences of 1s and 0s. I was hoping to do something like num_fav = count((col("is_fav") == 1)).alias("num_fav") num_nonfav = count((col("is_fav") == 0)).alias("num_nonfav") df.groupBy("f").agg(num_fav, num_nonfav) It does not work properly, I get in both cases the same result which amounts to the count for the items in the group, so the filter (whether it is a 1 or a 0) seems to be ignored. Does this depend on how count works? count 1 Answer 1 There is no filter here. Both col("is_fav") == 1 and col("is_fav") == 0) are just boolean expressions and count doesn't really care about their value as long a...
Read more

Mass disable jenkins jobs

Image
Clash Royale CLAN TAG #URR8PPP Mass disable jenkins jobs Is it possible to disable a large number of Jenkins jobs in one go? I have a large number of jenkins job I need to disable. Visiting each job in turn and disbling is tedious. 2 Answers 2 https://wiki.jenkins-ci.org/display/JENKINS/Configuration+Slicing+Plugin That works beautifully install it go to http://your_jenkins.com:8080/slicing/jobdisabledbool/? By using configuration slicing plugin: By using this plugin easy to find out anything has enabled or disable jobs and timer separated jobs Manage Jenkins >Config slicing > select options By clicking "Post Your Answer", you acknowledge that you have read our updated terms of service, privacy policy and cookie policy, and that your continued use of the website is subject to these policies.
Read more