@@ -65,31 +65,39 @@ gh_user_general_internal <- function (login = "",
65
65
)
66
66
67
67
orgs <- user $ organizations $ nodes
68
- org_name <- vapply (orgs , function (i ) i $ name , character (1L ))
69
- org_gh_org <- vapply (orgs , function (i ) i $ resourcePath , character (1L ))
70
- org_url <- vapply (orgs , function (i ) i $ url , character (1L ))
71
- org_web_url <- vapply (
72
- orgs ,
73
- function (i ) null2na_char (i $ websiteUrl ),
74
- character (1L )
75
- )
76
- org_location <- vapply (
77
- orgs ,
78
- function (i ) null2na_char (i $ location ),
79
- character (1L )
80
- )
81
- org_num_members <- vapply (
82
- orgs ,
83
- function (i ) i $ membersWithRole $ totalCount ,
84
- integer (1L )
85
- )
68
+
69
+ org_name <- org_gh_org <- org_url <-
70
+ org_web_url <- org_location <- character (0L )
71
+ org_num_members <- integer (0L )
72
+
73
+ if (length (orgs ) > 0L ) {
74
+
75
+ org_name <- vapply (orgs , function (i ) i $ name , character (1L ))
76
+ org_gh_org <- vapply (orgs , function (i ) i $ resourcePath , character (1L ))
77
+ org_url <- vapply (orgs , function (i ) i $ url , character (1L ))
78
+ org_web_url <- vapply (
79
+ orgs ,
80
+ function (i ) null2na_char (i $ websiteUrl ),
81
+ character (1L )
82
+ ) | > null2na_char ()
83
+ org_location <- vapply (
84
+ orgs ,
85
+ function (i ) null2na_char (i $ location ),
86
+ character (1L )
87
+ ) | > null2na_char ()
88
+ org_num_members <- vapply (
89
+ orgs ,
90
+ function (i ) i $ membersWithRole $ totalCount ,
91
+ integer (1L )
92
+ )
93
+ }
86
94
87
95
orgs <- data.frame (
88
96
name = org_name ,
89
97
gh_org = org_gh_org ,
90
98
url = org_url ,
91
- web_url = null2na_char ( org_web_url ) ,
92
- location = null2na_char ( org_location ) ,
99
+ web_url = org_web_url ,
100
+ location = org_location ,
93
101
num_members = org_num_members
94
102
)
95
103
0 commit comments