R_LAB_7

###środowiska
ls()

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)

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