This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
### Change these parts here ---------------------------------------------------- | |
# Set to your working directory where there is a template.md file | |
setwd(here::here()) | |
# Locations | |
vault_location <- stop('Add Vault Location') # Location of markdown files | |
attachments_dir <- stop('Add Vault Subdirectory Location') # subdirectory of vault_location for png-files | |
imap_mail <- stop('Set imap mail client') # mail client |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(tidyverse) | |
dat <- mpg %>% | |
mutate( | |
custom_color = if_else( | |
year == 2008 & manufacturer == 'audi', | |
'dodgerblue4', | |
'grey80' | |
) | |
) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
camcorder::gg_record( | |
dir = 'img', | |
height = 16, | |
width = 16, | |
units = 'cm' | |
) | |
library(tidyverse) | |
library(ggforce) | |
dat <- tibble( |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- | |
output: html_document | |
editor_options: | |
chunk_output_type: console | |
--- | |
## Load Packages | |
```{r} | |
setwd(here::here('streep_map_game/')) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
```{r} | |
#| message: false | |
library(tidyverse) | |
``` | |
::: panel-tabset | |
## Responsive |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
setwd(here::here('shiny_modules')) | |
library(shiny) | |
library(ggplot2) | |
ui <- fluidPage( | |
theme = bslib::bs_theme( | |
# Colors (background, foreground, primary) | |
bg = 'white', | |
fg = '#06436e', | |
primary = colorspace::lighten('#06436e', 0.3), |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
setwd(here::here('shiny_modules')) | |
library(shiny) | |
library(ggplot2) | |
data_viewer_UI <- function(id, my_data_set) { | |
ns <- NS(id) | |
tagList( | |
sidebarLayout( | |
sidebarPanel( |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- | |
output: html_document | |
editor_options: | |
chunk_output_type: console | |
--- | |
```{r} | |
setwd(here::here('religions_usa')) | |
library(tidyverse) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(shiny) | |
library(ggplot2) | |
library(dplyr) | |
ui <- fluidPage( | |
shinyjs::useShinyjs(), | |
theme = bslib::bs_theme( | |
# Colors (background, foreground, primary) | |
bg = 'white', | |
fg = '#06436e', |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(ggplot2) | |
library(grid) | |
library(ggpp) | |
rect_gr <- grid.rect( | |
gp = gpar( | |
col = NA, | |
fill = linearGradient( | |
colours = thematic::okabe_ito(2), | |
# Units is npc (so values between 0 and 1) | |
x1 = 1, y1 = 1, |
OlderNewer