-
Notifications
You must be signed in to change notification settings - Fork 16
/
Copy path.Rhistory
74 lines (74 loc) · 2.12 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
library(quarto)
library(kyber)
trailhead_png <- system.file("kyber-templates",
"github_clinic_md_text.md", package = "kyber")
trailhead_png
fs::file_copy(trailhead_png)
library(fs)
?file_copy()
fs::file_copy(trailhead_png, here())
library(here)
fs::file_copy(trailhead_png, here())
library(stringr)
library(datapasta) # install.packages("datapasta")
library(kyber) ## remotes::install_github("openscapes/kyber")
library(here)
cohort <- c(tibble::tribble(
~first, ~last,
"_demo", "",
"Erin", "Robinson",
"Julie", "Lowndes"
)
)
kyber::short_names(cohort$first, cohort$last) |>
create_github_clinic(here())
trailhead_png <- system.file("kyber-templates",
"github_clinic_md_text.md", package = "kyber")
fs::file_copy(trailhead_png, here())
here()
remotes::install_github("openscapes/kyber@main")
library(stringr)
library(datapasta) # install.packages("datapasta")
library(kyber) ## remotes::install_github("openscapes/kyber")
library(here)
library(fs)
cohort <- c(tibble::tribble(
~first, ~last,
"_demo", "",
"Erin", "Robinson",
"Julie", "Lowndes"
)
## create .md files for each Champion
kyber::short_names(cohort$first, cohort$last) |>
## create .md files for each Champion
kyber::short_names(cohort$first, cohort$last) |>
create_github_clinic(here())
kyber::short_names(cohort$first, cohort$last) |>
create_github_clinic(here())
cohort <- c(tibble::tribble(
~first, ~last,
"_demo", "",
"Erin", "Robinson",
"Julie", "Lowndes"
)
)
library(stringr)
library(datapasta) # install.packages("datapasta")
library(kyber) ## remotes::install_github("openscapes/kyber")
library(here)
library(fs)
## use `datapasta` addin to vector_tribble these names formatted from the spreadsheet!
cohort <- c(tibble::tribble(
~first, ~last,
"_demo", "",
"Erin", "Robinson",
"Julie", "Lowndes"
)
)
kyber::short_names(cohort$first, cohort$last) |>
create_github_clinic(here())
## copy trailhead image into parent folder
trailhead_png <- system.file("kyber-templates",
"horst-champions-trailhead.png", package = "kyber")
trailhead_png
fs::file_copy(trailhead_png, here())