pre-slides.Rmd

output:
  xaringan::moon_reader:
    css: ["./styles/slides.css"]
    nature:
      seal: false
      highlightStyle: github
      highlightLines: true
      highlightLanguage: ["r"]
      countIncrementalSlides: false
      ratio: '16:9'
      slideNumberFormat: |
        <div class="progress-bar-container">
          <div class="progress-bar" style="width: calc(%current% / %total% * 100%);">
          </div>
        </div>`
      navigation:
        scroll: false
library("knitr")
library("rmarkdown")
library("tidyverse")
library("DT")
library("icons")

uni <- readRDS("../datasets/uni.rds")

opts_chunk$set(fig.path = "pics/dplyr-", # path for calculated figures
               fig.align = "center",  # alignment of figure (also possible right, left, default)
               fig.show = "hold", # how to show figures: hold -> direct at the end of code chunk; animate: all plots in an animation
               out.width = "60%",
               echo = TRUE,     # Code is printed
               eval = FALSE,    # Code is NOT evaluated
               warning = FALSE, # warnings are NOT displayed
               message = FALSE, # messages are NOT displayed
               background = "#E7E7E7", # background color of code chunks
               comment = "", # no hashtags before output
               results = "markdown",
               rows.print = 15
)

options(DT.options = list(pageLength = 5,
                          language = list(search = 'Filter:'),
                          autowidth = TRUE,
                          lengthChange = FALSE,
                          formatStyle = (fontSize = "40%"))
        )

htmltools::tagList(
  xaringanExtra::use_clipboard(
    button_text = "<i class=\"fa fa-clipboard\"></i>",
    success_text = "<i class=\"fa fa-check\" style=\"color: #90BE6D\"></i>",
    error_text = "<i class=\"fa fa-times-circle\" style=\"color: #F94144\"></i>"
  ),
  rmarkdown::html_dependency_font_awesome()
)

install.packages("tidyverse",
                 dependencies = TRUE)
df$newVar <- NA

newDf <- subset(df,
                is.na(newVar
                      )
                )
own_mean <- function(x){
  mean = sum(x) / length(x)
  print(mean)
  }
# einzelnes Argument
library(tidyverse)

# mehrere Argumente
str_sub(tweet$text[23], # Quelle
        -20,  # Beginn 20. Buchstaben vom Ende
        -2    # vorletzter Buchstabe vom Ende
        )