请问R用source()调用文件中的函数，为啥不行？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如题，如果我用source("C:/Users/Administrator/Desktop/xh_device_SelectFunc.R")调用函数，可以看到Functions，但是运行不能筛选出结果，如果我直接运行这段代码，则可以用函数，请问是什么原因？

PS：请把附件中的xh_device_SelectFunc.txt后缀改为xh_device_SelectFunc.R再运行。

1. library(openxlsx)
   
2. testdata <- read.xlsx("C:/Users/Administrator/Desktop/testdata.xlsx")
   
3. xh_device_SelectFunc <- function(data){
   
4.   xh_reg <- data[grepl("徐汇",data$registorAddress),]
   
5.   temp <- data[!grepl("徐汇",data$registorAddress),]
   
6.   xh_pro <- temp[grepl("徐汇",temp$producedAddress),]
   
7.   temp <- temp[!grepl("徐汇",temp$producedAddress),]
   
8.   xh_agent <- temp[grepl("徐汇",temp$agentAddress),]
   
9.   xh_data <- rbind(xh_reg,xh_pro,xh_agent)
   
10.   return(xh_data)
    
11. }
    
12. xh_cndata <- xh_device_SelectFunc(data = testdata)

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Source Our Select device Elect

问题：
1. 你的xh_device_SelectFunc.R中只有xh_device_SelectFunc函数部分，要把你的代码块中从library到xh_cndata全部写进去
2. source的运行结果存储为环境变量，若想再控制台直接显示，要再你的代码后面加print(xh_cndata)

zhou1_20 发表于 2021-2-9 09:23
问题：
1. 你的xh_device_SelectFunc.R中只有xh_device_SelectFunc函数部分，要把你的代码块中从library到 ...

顿悟，谢谢老师！