安装.包 ( “gitdown” )
遥控器 :: 安装github ( “ThinkR-open/gitdown” )
#
票
图书馆 (dplyr)
图书馆 (吉特登)
##为示例创建假存储库
回购 <- 假回购 ()
git_down(向下) (回购, 图案= c(c) ( “门票” = “票证[[:数字:]]+” ,
“问题” = “#[[:数字:]]+” ))
#带通信表
图案表 <- 数据帧 (
数字= c(c) ( "#2" , "#1" , "#1000" ),
标题= c(c) ( “#2说明博客帖子的第二期” ,
“#1问题示例” ,
“#1000问题,未提交” ))
git_down(向下) (
图案= c(c) ( “问题” = “#[[:数字:]]+” ),
图案表= 图案表
)
获取承诺模式 (回购, 图案= “#[[:数字:]]+” , 参考= “主要” ) %>%
选择 (模式内容, 一切 ())
#>找到4个提交。
#>#A台:7×12
#>pattern.content sha摘要消息作者在订购时发送电子邮件
#><chr><chr>
#>1#32 8790c…添加NE…“添加NE..Alice alic…2022-03-04 15:31:14 4
#>2#1 8790c…添加NE…“添加NE..Alice alic…2022-03-04 15:31:14 4
#>3#12 8790c…添加NE…“添加NE…Alice alic…2022-03-04 15:31:14
#>4#2 c0870…第三…“第三…Alice alic…2022-03-04 15:31:14 3
#>5#145 c0870…第三…“第三…Alice alic…2022-03-04 15:31:14 3
#>6#1 a97db…exampl…“示例…Alice alic…2022-03-04 15:31:14 2
#>7<NA>b27b5…第一…“第一…Alice alic…2022-03-04 15:31:14 1
#>#…还有4个变量:tag.name<chr>、tag.message<chr]、,
#>#pattern.type<chr>,pattern.title<chr>
获取承诺模式 (
回购,
图案= c(c) ( “门票” = “票证[[:数字:]]+” , “问题” = “#[[:数字:]]+” ),
参考= “主要”
) %>%
选择 (pattern.type、pattern.content、, 一切 ())
#>找到4个提交。
#>#A桥:12×12
#>pattern.type pattern.content sha摘要消息作者电子邮件
#><chr><chr><chr
#>1票证票证6789 8790cc60…Add NEWS“添加新闻\n\n…Alice Alice…
#>2张票证1234 8790cc60…Add NEWS“添加新闻\n\n…Alice Alice…
#>3问题#32 8790cc60…添加新闻“添加新闻\n\n…Alice Alice…
#>4问题#1 8790cc60…添加新闻“添加新闻\n\n…Alice Alice…
#>5期#12 8790cc60…添加新闻“添加新闻\n\n…Alice Alice…
#>6票<NA>c0870ab4…第三次…“第三次提交…Alice Alice…
#>7问题#2 c0870ab4…第三公司…“第三次提交…Alice Alice…
#>8问题#145 c0870ab4…第三公司…“第三次提交…Alice Alice…
#>9门票票1234a97db45b…示例:…“示例:mod…Alice Alice…
#>10问题#1 a97db45b…示例:…“示例:mod…Alice Alice…
#>11票<NA>b27b55fe…First co.…“第一次提交…Alice Alice…
#>12个问题<NA>b27b55fe…First co.…“First commit…Alice Alice…
#>#…还有5个变量:when<dttm>,order<int>,tag.name<chr>,
#>#标记消息<chr>,pattern.title<chr>
回购_千克 <- 伪造报告 ( as.包装= 真的 )
#仅列出R/目录中的文件
创建_vignette_last_modif (回购_千克)
#列出git存储库的所有文件
创建_活动_最后_修改 (回购_千克, 路径= "" )