pomdp-intro/reviews/README.Rmd at master · boettiger-lab/pomdp-intro · GitHub

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
75
76
77
---
title: "README.Rmd"
author: "Carl Boettiger"
output: github_document
---

# README

Reviews are copyright of the reviewers and cannot be shared without permission.  To keep everything in one place, review material is stored here in encrypted files.


```{r}
library(gpg)
keyring <- gpg_list_keys(secret = TRUE)
cboettig <- keyring[1, "id"]
```

Encrypt `.gitignore`'d plain text, allowing only specified users to decrypt:

```{r}
## letter 1
letter1 <- "review-reply.Rmd"
gpg_letter1 <- "review-reply.Rmd.gpg"

msg <- gpg_encrypt(letter1, receiver = cboettig, signer = cboettig)
writeLines(msg, gpg_letter1)
```


Unencrypt committed gpg versions:

```{r}
writeLines(gpg_decrypt(gpg_letter1), letter1)
```


Encrypt letter 2

```{r}
letter2 <- "review-reply-2.Rmd"
gpg_letter2 <- "review-reply-2.Rmd.gpg"

msg <- gpg_encrypt(letter2, receiver = cboettig, signer = cboettig)
writeLines(msg, gpg_letter2)
```

Unencrypt committed gpg versions:


```{r}
writeLines(gpg_decrypt(gpg_letter2), letter2)
```


Encrypt letter 3

```{r}
letter3 <- "review-reply-3.Rmd"
gpg_letter3 <- "review-reply-3.Rmd.gpg"

msg <- gpg_encrypt(letter3, receiver = cboettig, signer = cboettig)
writeLines(msg, gpg_letter3)
```

Unencrypt committed gpg versions:


```{r}
writeLines(gpg_decrypt(gpg_letter3), letter3)
```