edavidaja

FROM rocker/rstudio
RUN sudo apt-get update && sudo apt-get install python3 bzip2 -y
RUN wget https://repo.anaconda.com/miniconda/Miniconda3-latest-Linux-x86_64.sh -O miniconda.sh && \
    bash miniconda.sh -b -p /opt/miniconda 

ENV PATH "$PATH:/opt/miniconda/bin"

RUN conda config --set always_yes yes --set changeps1 no 
RUN conda update -q conda
# because of the occasional build timeout from installing spacyr from github I install

edavidaja

Keybase proof

I hereby claim:

• I am edavidaja on github.
• I am edavidaja (https://keybase.io/edavidaja) on keybase.
• I have a public key ASDP-zZ510_P1p8hM282a0gxaDAwG74VcPscm3UDVa8A4wo

To claim this, I am signing this object:

edavidaja

library(purrr)

xls_to_xlsx  <- function(file) {
  if (fs::path_ext(file) != "xls") {
    stop("file must have extension xls")    
  }
  
  sheets <- readxl::excel_sheets(file)
  
  insheets <- map(sheets, ~readxl::read_excel(file, .x, col_names = FALSE))

edavidaja

        {
            "background": "#2E3440",
            "black" : "#3B4252",
            "blue" : "#81A1C1",
            "cyan" : "#88C0D0",
            "foreground": "#D8DEE9",
            "green" : "#A3BE8C",
            "brightBlack" : "#4C566A",
            "brightBlue" : "#81A1C1",
            "brightCyan" : "#8FBCBB",

edavidaja

library(ggplot2)
library(ggtext)
 
dat <- economics_long[economics_long$variable %in% c("psavert", "uempmed"), ]
ggplot(dat, aes(date, value, color = variable)) +
  geom_line() +
  scale_color_manual(values = c("#0072B2", "#009E73")) +
 labs(

edavidaja

library(ggplot2)
library(purrr)
split_iris <- split(iris, 1:3)
map2(
  split_iris, names(split_iris), ~ {
    lm(Sepal.Length ~ Sepal.Width, data = .x)
    p <- ggplot(.x, aes(Sepal.Width, Sepal.Length, color = Species)) + geom_point()
    print(p)
 ggsave(plot = p, filename = paste0("plot_", .y, ".png"))

edavidaja

{directlabels} lets you attach categorical labels to many plots. for labeling values on plots, use ggrepel:

suppressPackageStartupMessages({
  library(ggplot2)
  library(ggrepel)
  library(dplyr)
})

edavidaja

# renv must be active
install.packages(
  c(
    "jimhester/lookup",
    "devtools",
    "usethis",
    "MilesMcBain/breakerofchains"
  )
)

edavidaja

library(shinydashboard)
library(dplyr)
library(dbplyr)
library(purrr)
library(shiny)
library(highcharter)
library(DT)
library(htmltools)

# Use the `config` package to get the credentials

edavidaja

library(shiny)

ui <- fluidPage(
    # Application title
    titlePanel("clippers"),

    sidebarLayout(
        sidebarPanel(
            textAreaInput("text_input", "enter text:"),
            # using submit button makes the copy less of a lie (but still a lie) because