Skip to content

Commit 5d96643

Browse files
bschilderclaude
andcommitted
[skip ci] Add .Rproj, fix hex sticker bat sizing
The CSV from echoverseTemplate has tiny bsize values producing invisible bats. Generate fresh data with set.seed(1234) instead, matching how the other echoverse hex stickers were originally created. Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
1 parent 360e36f commit 5d96643

3 files changed

Lines changed: 19 additions & 8 deletions

File tree

echoAI.Rproj

Lines changed: 18 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,18 @@
1+
Version: 1.0
2+
3+
RestoreWorkspace: Default
4+
SaveWorkspace: Default
5+
AlwaysSaveHistory: Default
6+
7+
EnableCodeIndexing: Yes
8+
UseSpacesForTab: Yes
9+
NumSpacesForTab: 4
10+
Encoding: UTF-8
11+
12+
RnwWeave: Sweave
13+
LaTeX: pdfLaTeX
14+
15+
BuildType: Package
16+
PackageUseDevtools: Yes
17+
PackageInstallArgs: --no-multiarch --with-keep.source
18+
PackageCheckArgs: --as-cran

inst/hex/hex.png

3.52 KB
Loading

inst/hex/hexSticker.Rmd

Lines changed: 1 addition & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -65,7 +65,7 @@ download.file(URL, tmp)
6565

6666
Create background with `ggplot2`.
6767

68-
```{r, eval=FALSE}
68+
```{r}
6969
set.seed(1234)
7070
n_bats <- 20
7171
d <- data.frame(x = -rexp(n_bats, rate = 3),
@@ -74,13 +74,6 @@ d <- data.frame(x = -rexp(n_bats, rate = 3),
7474
dplyr::mutate(image = URL,
7575
bsize = abs(x*y^2)) |>
7676
dplyr::arrange(dplyr::desc(x), dplyr::desc(y))
77-
qplot(d$x, d$y, size=d$bsize)
78-
```
79-
80-
Import data points for reproducibility.
81-
82-
```{r}
83-
d <- data.table::fread("https://github.com/RajLabMSSM/echoverseTemplate/releases/download/latest/echoverse_points.csv.gz")
8477
```
8578

8679

0 commit comments

Comments
 (0)