Wymiana elementu w jednostce sieci wektorowej

Question

Już kilka razy zdumiewało mnie to, więc oto gotowe pytanie dla innych, którzy mogą natknąć się na ten sam problem.

Rozważmy tę jednostkę siatka wektor,

a = unit(1:3, c("cm", "in", "npc")) 

Chcę wymienić niektóre elementy z nowymi wartościami. Naturalne podejście byłoby,

a[1] = unit(2,"pt") 
a 
# [1] 2cm 2in 3npc 

Coś poszło nie tak: zmieniono tylko wartość liczbową, a nie jednostkę. Czemu? Co robić?

Edytuj: Jak wskazano w jednej odpowiedzi poniżej, takie jednostki są po prostu wektorami liczbowymi z atrybutami. Jednak ich potomstwo: unit.arithmetic i unit.list powinno być również uważane za rozwiązanie w pełni ogólne (np. W celu dostosowania rozmiarów paneli obiektów ggplot). Rozważ ten wektor jednostkowy,

(b = a + unit(1, "npc")) 
# [1] 1cm+1npc 2in+1npc 3npc+1npc 
# [1] "unit.arithmetic" "unit" 

Teraz zastąpienie konkretnego elementu jest trudniejsze, ponieważ nie jest już atomowe.

Answer 1

gridnow has a [<-.unit method.

Answer 2

Wygląda na to, że a to po prostu wektor atomowy z pewnymi atrybutami. Tak więc, kiedy używasz a[1] = unit(2,"pt"), nowa funkcja unit tworzy inny wektor atomowy o długości jeden, który zastępuje wartość a[1]. Atrybuty pozostają nietknięte.

Tak, coś w tym wydaje się działać:

a[1] <- 2 
attr(a, 'unit')[1] <- 'pt' 

> a 
[1] 2pt 2in 3npc 

Answer 3

Po dyskusji z Paulem Murrell (i, zabawnie, ponowne wynalezienie co ja figured out before), problem leży w nieobecności [<- metoda dla jednostek gridowych. Długofalowym rozwiązaniem byłoby wdrożenie tych metod, ale nie jest to trywialne, ponieważ jednostki gridowe pochodzą z rodzeństwem, na przykład unit.arithmetic i unit.list, a ich interakcja może być trudna do zrozumienia.

Łatwiejsza, zorientowana na użytkownika poprawka polega na konwersji takich wektorów jednostek na obiekty unit.list, które odziedziczą metodę dostępową bardziej jak zwykłe listy R. Tej promocji do obiektu unit.list można dokonać przy użyciu nieodportowanej funkcji grid:::unit.list().

a = unit(1:3, c("cm", "in", "npc")) 
b = grid:::unit.list(a) 
is.list(b) # check that indeed this is a list object, thanks @Josh O'Brien 
# [1] TRUE 
# so now we can use standard list methods 
b[[1]] = unit(2,"pt") 
b 
#[1] 2pt 2in 3npc