search for: keyx

...,6 +157,14 @@ } if(has.common.nms) names(y) <- nm.y + ## If by.x %in% names(y) then duplicate column names still arise, + ## apply suffixes to just y - this keeps backwards compatibility + ## when referring to by.x in the resulting data.frame + dupe.keyx <- intersect(nm.by, names(y)) + if(length(dupe.keyx)) { + if(nzchar(suffixes[2L])) + names(y)[match(dupe.keyx, names(y), 0L)] <- paste(dupe.keyx, suffixes[2L], sep="") + } nm <- c(names(x), names(y)) if(any(d <- duplicated(nm...

...) names(y) <- nm.y >> + ## If by.x %in% names(y) then duplicate column names still arise, >> + ## apply suffixes to just y - this keeps backwards compatibility >> + ## when referring to by.x in the resulting data.frame >> + dupe.keyx <- intersect(nm.by, names(y)) >> + if(length(dupe.keyx)) { >> + if(nzchar(suffixes[2L])) >> + names(y)[match(dupe.keyx, names(y), 0L)] <- paste(dupe.keyx, >> suffixes[2L], sep="") >> + } >>...

...> if(has.common.nms) names(y) <- nm.y > + ## If by.x %in% names(y) then duplicate column names still arise, > + ## apply suffixes to just y - this keeps backwards compatibility > + ## when referring to by.x in the resulting data.frame > + dupe.keyx <- intersect(nm.by, names(y)) > + if(length(dupe.keyx)) { > + if(nzchar(suffixes[2L])) > + names(y)[match(dupe.keyx, names(y), 0L)] <- paste(dupe.keyx, > suffixes[2L], sep="") > + } > nm <- c(names(x), names(y)) >...

...; } >> >>> if(has.common.nms) names(y) <- nm.y >> >>> + ## If by.x %in% names(y) then duplicate column names still >> >>> arise, >> >>> + ## apply suffixes to these >> >>> + dupe.keyx <- intersect(nm.by, names(y)) >> >>> + if(length(dupe.keyx)) { >> >>> + if(nzchar(suffixes[1L])) >> >>> + names(x)[match(dupe.keyx, names(x), 0L)] <- >> >>> paste(dupe.keyx, suffixes[1L], sep="")...

...>> + ## If by.x %in% names(y) then duplicate column names still > arise, > >> + ## apply suffixes to just y - this keeps backwards > compatibility > >> + ## when referring to by.x in the resulting data.frame > >> + dupe.keyx <- intersect(nm.by, names(y)) > >> + if(length(dupe.keyx)) { > >> + if(nzchar(suffixes[2L])) > >> + names(y)[match(dupe.keyx, names(y), 0L)] <- > paste(dupe.keyx, > >> suffixes[2L], sep="") > &g...

...74264) > +++ src/library/base/R/merge.R (working copy) > @@ -157,6 +157,15 @@ > } > > if(has.common.nms) names(y) <- nm.y > + ## If by.x %in% names(y) then duplicate column names still arise, > + ## apply suffixes to these > + dupe.keyx <- intersect(nm.by, names(y)) > + if(length(dupe.keyx)) { > + if(nzchar(suffixes[1L])) > + names(x)[match(dupe.keyx, names(x), 0L)] <- paste(dupe.keyx, suffixes[1L], sep="") > + if(nzchar(suffixes[2L])) > + names(y)[match...

...t; >>> if(has.common.nms) names(y) <- nm.y > >> >>> + ## If by.x %in% names(y) then duplicate column names still > >> >>> arise, > >> >>> + ## apply suffixes to these > >> >>> + dupe.keyx <- intersect(nm.by, names(y)) > >> >>> + if(length(dupe.keyx)) { > >> >>> + if(nzchar(suffixes[1L])) > >> >>> + names(x)[match(dupe.keyx, names(x), 0L)] <- > >> >>> paste(dupe.keyx, suffixes[1L]...

...>>> @@ -157,6 +157,15 @@ >>> } >>> if(has.common.nms) names(y) <- nm.y >>> + ## If by.x %in% names(y) then duplicate column names still >>> arise, >>> + ## apply suffixes to these >>> + dupe.keyx <- intersect(nm.by, names(y)) >>> + if(length(dupe.keyx)) { >>> + if(nzchar(suffixes[1L])) >>> + names(x)[match(dupe.keyx, names(x), 0L)] <- >>> paste(dupe.keyx, suffixes[1L], sep="") >>> + if(nzchar(su...

...e/R/merge.R (working copy) >> @@ -157,6 +157,15 @@ >> } >> >> if(has.common.nms) names(y) <- nm.y >> + ## If by.x %in% names(y) then duplicate column names still arise, >> + ## apply suffixes to these >> + dupe.keyx <- intersect(nm.by, names(y)) >> + if(length(dupe.keyx)) { >> + if(nzchar(suffixes[1L])) >> + names(x)[match(dupe.keyx, names(x), 0L)] <- paste(dupe.keyx, suffixes[1L], sep="") >> + if(nzchar(suffixes[2L])) >> +...

...@@ > >>> } > >>> if(has.common.nms) names(y) <- nm.y > >>> + ## If by.x %in% names(y) then duplicate column names still > >>> arise, > >>> + ## apply suffixes to these > >>> + dupe.keyx <- intersect(nm.by, names(y)) > >>> + if(length(dupe.keyx)) { > >>> + if(nzchar(suffixes[1L])) > >>> + names(x)[match(dupe.keyx, names(x), 0L)] <- > >>> paste(dupe.keyx, suffixes[1L], sep="") > >>&gt...

Hi Frederick, I would expect that any duplicate names in the resulting data.frame would have the suffixes appended to them, regardless of whether or not they are used as the join key. So in my example I would expect "names.x" and "names.y" to indicate their source data.frame. While careful reading of the documentation reveals this is not the case, I would argue the intent of

...bpam-openafs-session is used to get an AFS token from the forwarded Krb5 TGT after logging into a machine using openssh+patch. Everything is working fine when we ssh between two machines over a public IP connection. No passwords are needed, krb5 tickets are forwarded using either the external-keyx or gssapi authentication methods, and afs tokens are retrieved. The problem occurs when ssh'ing over the private network connection between two machines. We have a number of two-node clusters where each node has a public IP address, as well as any number of private IP addresses, one for ea...

.... .----------------------------------------------------------------------- ------------. debug1: Authentications that can continue: publickey,password,keyboard-interactive debug3: start over, passed a different list publickey,password,keyboard-interactive debug3: preferred external-keyx,gssapi,publickey,keyboard-interactive,password debug3: authmethod_lookup publickey debug3: remaining preferred: keyboard-interactive,password debug3: authmethod_is_enabled publickey debug1: Next authentication method: publickey debug1: Trying private key: .ssh/id_rsa2Firewall debug1: PEM_read_Priva...