R语言 建立R包 （学习版）

getwd()
# 写入
document()
library(devtools)
library(roxygen2)
create_package("c34d") 
# 会跳出新窗口 路径也在新的

#在R文件夹下面 写function 然后 Ctrl+Shift+Alt+R
library(devtools) #再次加载  #R文件夹下 如果修改直接这里再开始
library(roxygen2)
# 写入
document()  
# 检查
check()

describeBy<-source("GroupStatistics.R")
# 将数据写入mypackage 中
use_data(describeBy,overwrite = TRUE)
use_data_raw()


#上面菜单 build 然后 build source

上传到Github

建立库，把刚才create_package(“c34d”) 的文件夹都拉进去

可以设置releas版本

#安装
remotes::install_github("shaopopper/c34dRpackage")
library(c34d)
#查看R包包含的函数名
ls('package:c34d')

#查看R包的详细函数
mget(ls("package:c34d"), inherits = TRUE)

#' GetSecondaryDirectoryFile
#'
#' 验证二级文件夹里面是否有文件，无返回NA值，为TRUE。最后返回二级文件夹文件
#'
#' @param 随意填入数字
#'
#' @return filename
#' @export
#'

GetSecondaryDirectoryFile <- function(xx){
  xxx=xx
  filename=1
  for (i in 1:200) {
    a=as.character(list.files(list.files()[i])[1])
    ifelse( a%in% NA==TRUE, NA,'b')
    b=paste(getwd(),"/",list.files()[i],"/",list.files(list.files()[i])[1],sep = "")
    filename[[i]]=b
  }
  filename
  filename <- as.data.frame(filename)
  # 对200行数据进行过滤
  filename2=apply(filename, 2,
                  function(x){gsub(pattern = ".*(NA).*",
                                   replacement = "\\21",x) })
  filename2 <- as.data.frame(filename2)
  filename2 <- filename2[filename2$filename!=1,]
  filename2  #这时候提取到试运行的10个文件的绝对路径
  filename=filename2
}

@param xx 随意填入数字

这样Arguments那里能显示为

xx 随意填入数字即可

查看包里面函数的 function

methods(full_join) 
full_join
getAnywhere(full_join)