[mirror] Opinionated R package quickstart
use license helper
+52
-1
+52
-1
R/bootstrapper.R
+52
-1
R/bootstrapper.R
···
97
97
readLines(".Rbuildignore", warn = FALSE) |>
98
98
Filter(nzchar, x = _) |>
99
99
writeLines(".Rbuildignore")
100
-
# TODO: CLI message select a license; make sure you declare import using usethis useimportfrom
100
+
use_license(author)
101
101
usethis::use_github(private = private)
102
102
invisible(NULL)
103
103
}
104
+
105
+
use_license <- function(author) {
106
+
license_choices <- c(
107
+
"MIT" = "use_mit_license",
108
+
"GPL" = "use_gpl_license",
109
+
"GPL-3" = "use_gpl3_license",
110
+
"LGPL" = "use_lgpl_license",
111
+
"AGPL" = "use_agpl_license",
112
+
"AGPL-3" = "use_agpl3_license",
113
+
"Apache-2.0" = "use_apl2_license",
114
+
"Apache" = "use_apache_license",
115
+
"CC BY" = "use_ccby_license",
116
+
"CC0" = "use_cc0_license",
117
+
"Proprietary" = "use_proprietary_license",
118
+
"Skip for now" = FALSE
119
+
)
120
+
usethis::ui_info("Select a license for this package.")
121
+
selected_fn <- if (interactive()) {
122
+
unname(
123
+
license_choices[[utils::menu(
124
+
choices = names(license_choices),
125
+
title = "License"
126
+
)]]
127
+
)
128
+
} else {
129
+
FALSE
130
+
}
131
+
if (selected_fn) {
132
+
copyright_holder <- format(author, include = c("given", "family"))
133
+
switch(
134
+
selected_fn,
135
+
use_mit_license = usethis::use_mit_license(
136
+
copyright_holder = copyright_holder
137
+
),
138
+
use_gpl_license = usethis::use_gpl_license(),
139
+
use_gpl3_license = usethis::use_gpl3_license(),
140
+
use_lgpl_license = usethis::use_lgpl_license(),
141
+
use_agpl_license = usethis::use_agpl_license(),
142
+
use_agpl3_license = usethis::use_agpl3_license(),
143
+
use_apl2_license = usethis::use_apl2_license(),
144
+
use_apache_license = usethis::use_apache_license(),
145
+
use_ccby_license = usethis::use_ccby_license(),
146
+
use_cc0_license = usethis::use_cc0_license(),
147
+
use_proprietary_license = usethis::use_proprietary_license(
148
+
copyright_holder = copyright_holder
149
+
)
150
+
)
151
+
} else {
152
+
usethis::ui_warn("No license selected; leaving current license unchanged.")
153
+
}
154
+
}