https://github.com/brentthorne/posterdown
https://github.com/rstudio/pagedown
https://github.com/GerkeLab/betterposter
# function to do a dodged half-boxplot and jittered points next to each other | |
# | |
# data_in should be a data frame | |
# factor_col should be a bare column name (not a string) | |
# although it will work if that column is factor or a character type | |
# numeric_col is the y axis continuous variable | |
# offset is the width of the boxplots and jittered point cloud | |
# | |
# the basic approach is to draw a boxplot without the tails | |
# (e.g. only the interquartile range) and then use segments to add the |
library(shiny) | |
library(httr) | |
# OAuth setup -------------------------------------------------------- | |
# Most OAuth applications require that you redirect to a fixed and known | |
# set of URLs. Many only allow you to redirect to a single URL: if this | |
# is the case for, you'll need to create an app for testing with a localhost | |
# url, and an app for your deployed app. |
library(shiny) | |
library(shinyjs) | |
if (!dir.exists('www/')) { | |
dir.create('www') | |
} | |
download.file( | |
url = 'https://cdn.jsdelivr.net/npm/js-cookie@2/src/js.cookie.min.js', | |
destfile = 'www/js.cookie.js' |
library(desplot) | |
library(agricolae) | |
library(RColorBrewer) | |
plot.RCBD.layout <- function(trt_name, num_block){ | |
repeticion <- rep(num_block, length(trt_name)) | |
RCBD <- design.rcbd(trt_name, r = repeticion, serie = 0) | |
variables: | |
CODECOV_TOKEN: "CODECOV_TOKEN_STRING" | |
_R_CHECK_CRAN_INCOMING_: "false" | |
_R_CHECK_FORCE_SUGGESTS_: "true" | |
APT_PKGS: "libcurl4-openssl-dev libssh2-1-dev libssl-dev libxml2-dev zlib1g-dev git" | |
before_script: | |
- apt-get update | |
- apt-get install -y --no-install-recommends ${APT_PKGS} | |
- apt-get install -y --no-install-recommends qpdf pandoc pandoc-citeproc |
# add this line to your Dockerfile (you also need to install Rbase) | |
RUN R -e 'install.packages("packrat" , repos="http://cran.us.r-project.org"); packrat::restore()' |
#I have >1000 bees to check its name, so I want to automatize taxize for | |
# fixing misspellings when possible | |
# updating synonims to accepted names | |
# keeping ONLY accepted species (fully resolved at species level) | |
# this uses taxize > 0.7.6.9157 If you are using older version (e.g. what its now on CRAN) see the history of this file. | |
library(taxize) | |
library(dplyr) | |
#example: good, synomin, typo, unexisting, genus only. |
Once in a while, you may need to cleanup resources (containers, volumes, images, networks) ...
// see: https://github.com/chadoe/docker-cleanup-volumes
$ docker volume rm $(docker volume ls -qf dangling=true)
$ docker volume ls -qf dangling=true | xargs -r docker volume rm
library(dplyr) | |
library(tidyr) | |
library(magrittr) | |
library(ggplot2) | |
"http://academic.udayton.edu/kissock/http/Weather/gsod95-current/NYNEWYOR.txt" %>% | |
read.table() %>% data.frame %>% tbl_df -> data | |
names(data) <- c("month", "day", "year", "temp") | |
data %>% | |
group_by(year, month) %>% |