search for: showattribut

The deparse options used by default by 'deparse' and 'dput' are c("keepNA", "keepInteger", "niceNames", "showAttributes") but Defn.h still has #define DEFAULTDEPARSE 1089 /* KEEPINTEGER | KEEPNA | NICE_NAMES, used for calls */ i.e., with the SHOWATTRIBUTES bit turned off. Is that on purpose? Note that this leads to weird things like: > (expr <- call("is.matrix", matrix(1:4, 2L...

...enough. Best wishes, Atte Tenkanen University of Turku, Finland ___________________________________________________________________ P.S. By the way, right now the demo(Hershey) seems not to work in OSX version R 2.4.1. ... I get a message > i <- i + 1 Error in deparse(ei, control = c("showAttributes", "useSource")) : invalid multibyte string

This arose in testing [.terms and has me confused. data(esoph)?? # use a standard data set t0x <- terms(model.frame( ~ tobgp, data=esoph)) t1 <-? terms(model.frame(ncases ~ agegp + tobgp, data=esoph)) t1x <- (delete.response(t1))[-1] > all.equal(t0x, t1x) [1] TRUE # the above is wrong, because they actually are not the same > all.equal(attr(t0x, 'dataClasses'),

...ource.R (revision 71357) +++ src/library/base/R/source.R (working copy) @@ -198,7 +198,7 @@ if (!tail) { # Deparse. Must drop "expression(...)" dep <- substr(paste(deparse(ei, width.cutoff = width.cutoff, - control = "showAttributes"), + control = c("keepInteger", "showAttributes")), collapse = "\n"), 12L, 1e+06L) dep <- paste0(prompt.echo, gsub("\n", paste0("\n", continue.echo), dep)) such that you get: > withAutoprint(x <- c(1L, NA_integer_, NA))...

>>>>> Henrik Bengtsson <henrik.bengtsson at gmail.com> >>>>> on Sat, 24 Sep 2016 11:31:49 -0700 writes: > Martin, did you post your code for withAutoprint() anywhere? > Building withAutoprint() on top of source() definitely makes sense, > unless, as Bill says, source() itself could provide the same feature. I was really mainly asking

...names(x) <- "recursive"? , dput(x) or even dput(x, control = "all") gives c(recursive = 0) However, actual result of c(recursive = 0) is NULL. Also with x <- 0; names(x) <- "recursive"? , dput(x, control = c("keepNA", "keepInteger", "showAttributes")) in R devel r73778 gives structure(c(0), .Names = "recursive") The 'control' is suggested by an example for output as in R < 3.5.0. However, the output is slightly different from dput(x) in R 3.3.2: structure(0, .Names = "recursive") Part of NEWS item relat...

...gth(target) == 3L, ", ", length(current) == 3L)) if (!identical(deparse(target), deparse(current))) "formulas differ in contents" else TRUE } So the issue is that deparse(t0x) and deparse(t1x) give the same strings with no attributes shown, even though "showAttributes" is set by default. I haven't traced through the C code to see where things are going wrong. Duncan Murdoch > > > sessionInfo() > R Under development (unstable) (2019-04-05 r76323) > Platform: x86_64-pc-linux-gnu (64-bit) > Running under: Ubuntu 18.04.2 LTS &gt...

Hi R users - I got an error message when reading in a saved file (a list structure) >dget("REPLICATION001") Error in attributes(.Data) <- c(attributes(.Data), attrib) : row names must be 'character' or 'integer', not 'double' I don't need row names and didn't even specify row names when I saved the file. What do I need to do for reading

Full_Name: Daniel F Higgins Version: 2.4.0 OS: Windows XP and Mac OSX Submission from: (NULL) (128.111.242.49) Create a dataframe as indicated below and apply 'dput' to it; note that the row.names attribute is incorrect! > aaa <- c("AAA","BBB","AAA") > bbb <- c(1,2,3) > df <- data.frame(aaa,bbb) > dput(df) structure(list(aaa =

...>> ??? if (!identical(deparse(target), deparse(current))) >> ??????? "formulas differ in contents" >> ??? else TRUE >> } >> >> So the issue is that deparse(t0x) and deparse(t1x) give the same >> strings with no attributes shown, even though "showAttributes" is set >> by default.?? I haven't traced through the C code to see where things >> are going wrong. >> >> Duncan Murdoch >> >>> >>> ? > sessionInfo() >>> R Under development (unstable) (2019-04-05 r76323) >>> Platfor...

...rse(current))) >>>> ??????? "formulas differ in contents" >>>> ??? else TRUE >>>> } >>>> >>>> So the issue is that deparse(t0x) and deparse(t1x) give the same strings with no >>>> attributes shown, even though "showAttributes" is set by default.?? I haven't traced >>>> through the C code to see where things are going wrong. >>>> >>>> Duncan Murdoch >>>> >>>>> >>>>> ? > sessionInfo() >>>>> R Under development (unst...

...; save(data.out, file="/home/jenny/data/data.out.RData", ascii=TRUE) and combination of ways to re-access it but I couldn't reaccess it and therefore use the data within. I then tried > dput(data.out,file="/home/jmb/sst_precip/gribdata/data.out.RData", control="showAttributes") #but the associated dget seemed to freeze my terminal window up and took much too long (I gave up after about 15 minutes) to read this file. Does anybody have an idea about another way (or a way within these methods) to come back to my data within the list data.out (with all of its asso...

...ably for list()s, i.e., including data frames. These functions gain a new control option "niceNames" (see .deparseOpts()), which when set (as by default) also uses the (tag = value) syntax for atomic vectors. On the other hand, without deparse options "showAttributes" and "niceNames", names are no longer shown also for lists. as.character(list( c (one = 1))) now includes the name, as as.character(list(list(one = 1))) has always done. m:n now also deparses nicely when m > n. The "quoteExpressions" op...

...ably for list()s, i.e., including data frames. These functions gain a new control option "niceNames" (see .deparseOpts()), which when set (as by default) also uses the (tag = value) syntax for atomic vectors. On the other hand, without deparse options "showAttributes" and "niceNames", names are no longer shown also for lists. as.character(list( c (one = 1))) now includes the name, as as.character(list(list(one = 1))) has always done. m:n now also deparses nicely when m > n. The "quoteExpressions" op...