Skip to content

Fix issue with png output on Windows #31

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
matt-dray merged 3 commits into from
Mar 8, 2025
Merged

Fix issue with png output on Windows #31

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
ace77d2
Add antialias, cairo
matt-dray Mar 8, 2025
9bb4aac
Add blog badge, Windows system start
matt-dray Mar 8, 2025
149e4ec
Set type/antialias in graphics device if windows
matt-dray Mar 8, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
29 changes: 21 additions & 8 deletions R/hexagon.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -51,14 +51,27 @@ open_device <- function(file_path, resolution = 300) {
stop("Argument 'resolution' must be a numeric value.", call. = FALSE)
}

grDevices::png(
filename = file_path,
width = 4.39,
height = 5.08,
units = "cm",
res = resolution,
bg = "transparent"
)
if (.Platform[["OS.type"]] == "windows") {
grDevices::png(
filename = file_path,
width = 4.39,
height = 5.08,
units = "cm",
res = resolution,
bg = "transparent",
type = "cairo",
antialias = "none"
)
} else {
grDevices::png(
filename = file_path,
width = 4.39,
height = 5.08,
units = "cm",
res = resolution,
bg = "transparent"
)
}

}

Expand Down
5 changes: 4 additions & 1 deletion README.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,6 +3,7 @@
<!-- badges: start -->
[![Project Status: Active – The project has reached a stable, usable state and is being actively developed.](https://www.repostatus.org/badges/latest/active.svg)](https://www.repostatus.org/#active)
[![R-CMD-check](https://github.com/matt-dray/gex/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/matt-dray/gex/actions/workflows/R-CMD-check.yaml)
[![Blog posts](https://img.shields.io/badge/rostrum.blog-posts-008900?labelColor=000000&logo=data%3Aimage%2Fgif%3Bbase64%2CR0lGODlhEAAQAPEAAAAAABWCBAAAAAAAACH5BAlkAAIAIf8LTkVUU0NBUEUyLjADAQAAACwAAAAAEAAQAAAC55QkISIiEoQQQgghRBBCiCAIgiAIgiAIQiAIgSAIgiAIQiAIgRAEQiAQBAQCgUAQEAQEgYAgIAgIBAKBQBAQCAKBQEAgCAgEAoFAIAgEBAKBIBAQCAQCgUAgEAgCgUBAICAgICAgIBAgEBAgEBAgEBAgECAgICAgECAQIBAQIBAgECAgICAgICAgECAQECAQICAgICAgICAgEBAgEBAgEBAgICAgICAgECAQIBAQIBAgECAgICAgIBAgECAQECAQIBAgICAgIBAgIBAgEBAgECAgECAgICAgICAgECAgECAgQIAAAQIKAAAh%2BQQJZAACACwAAAAAEAAQAAAC55QkIiESIoQQQgghhAhCBCEIgiAIgiAIQiAIgSAIgiAIQiAIgRAEQiAQBAQCgUAQEAQEgYAgIAgIBAKBQBAQCAKBQEAgCAgEAoFAIAgEBAKBIBAQCAQCgUAgEAgCgUBAICAgICAgIBAgEBAgEBAgEBAgECAgICAgECAQIBAQIBAgECAgICAgICAgECAQECAQICAgICAgICAgEBAgEBAgEBAgICAgICAgECAQIBAQIBAgECAgICAgIBAgECAQECAQIBAgICAgIBAgIBAgEBAgECAgECAgICAgICAgECAgECAgQIAAAQIKAAA7)](https://www.rostrum.blog/index.html#category=gex)
<!-- badges: end -->

## What
Expand Down Expand Up @@ -95,13 +96,15 @@ That creates this absolutely stunning demo sticker, written to the specified `fi

Note that you can't rely on plot-window previews when you're developing your sticker (they lie).
You must inspect the generated PNG file instead.
From R, you could do this with a `system()` call:
You could do this with a `system()` call from R:

``` r
# Open the PNG hex image for inspection
system(paste("open", temp_path))
```

Try `start` rather than `open` on Windows.

## Related

For more established hex-making tools with R, try:
Expand Down
Loading