ZAJĘCIA 7

#### 7
###środowiska
ls()

environment()
print(environment())
srod <- function(){
  print(environment() )
}
srod()

srod_1 <- new.env()
typeof(srod_1)
class(srod_1)

assign("srod_1_y" , 10, envir = .GlobalEnv)
assign("srod_1_y" , 10, envir = srod_1)
ls()
ls(envir = srod_1)

srod_1[["srod_1_y"]]
srod_1$srod_1_y

get("srod_1_y", envir = srod_1)

o1 <- list(w = 1)
o2 <- as.environment( o1 )
d <- c(1,1)
print(o2)

dodaj <- function( x ){
  x$w <- x$w + 1
  assign( "zewnetrzny", 666, envir = .GlobalEnv)
  d[1] <- 100 ##obiekt został przypisany na stałe do 1 elementu
  print(x$w)
  print (d)
}

o1$w
dodaj( o1 )
o1$w


o2$w
dodaj( o2 )
o2$w