Bạn có thể gọi source("abc.R")
Tiếp theo source("xyz.R")
(giả định rằng cả hai tập tin nằm trong thư mục làm việc hiện tại của bạn
Nếu abc.R là:.
fooABC <- function(x) {
k <- x+1
return(k)
}
và xyz.R là:
fooXYZ <- function(x) {
k <- fooABC(x)+1
return(k)
}
thì thao tác này sẽ hoạt động:
> source("abc.R")
> source("xyz.R")
> fooXYZ(3)
[1] 5
>
Ngay cả khi có phụ thuộc chu kỳ, điều này sẽ hoạt động.
Ví dụ: Nếu abc.R là thế này:
fooABC <- function(x) {
k <- barXYZ(x)+1
return(k)
}
barABC <- function(x){
k <- x+30
return(k)
}
và xyz.R là thế này:
fooXYZ <- function(x) {
k <- fooABC(x)+1
return(k)
}
barXYZ <- function(x){
k <- barABC(x)+20
return(k)
}
sau đó,
> source("abc.R")
> source("xyz.R")
> fooXYZ(3)
[1] 55
>
Nguồn
2012-11-25 10:57:21
Bằng cách sử dụng những chức năng này. Xem xét nghiêm túc hơn "nguồn" – Dason