R/loesungen.R

In martscht/PsyBSc7: Übungen für die Praktika im Sommersemester 2020

#' @name Loesungen
#' @aliases Loesungen_1
#' @aliases Loesungen_2
#' @aliases Loesungen_3
#' @aliases Loesungen_4
#' @aliases Loesungen_5
#' @aliases Loesungen_6
#' @aliases Loesungen_7
#' @aliases Loesungen_8
#' @aliases Loesungen_9
#' @aliases Loesungen_10
#' @aliases Loesungen_11
#' 
#' @title R-Skripte zur Lösung der Aufgaben im Praktikum zu PsyBSc 7, Sommersemester 2020
#'
#' Mit diesen Funktionen können Sie die Lösungen zu den Übungen in den einzelnen Sitzungen aufrufen. Die Passwörter werden nach dem Abgabetermin im OLAT bekannt gegeben.
#'

#### Kernfunktionen: Aufruf der einzelnen Sitzungen ####
#' @rdname Loesungen
#' @export
Loesungen_1 <- function(password) {
  if (digest::digest(password) != '92195e95ce62da2d8a449c0739e459ca') {
    message('Leider haben Sie nicht das richtige Passwort eingegeben.', call. = FALSE)
  }  else {
    compile('Wiederholung_lo')
  }
}

#' @rdname Loesungen
#' @export
Loesungen_2 <- function(password) {
  if (digest::digest(password) != '7d689a7a901bab794ff188043f8ee47d') {
    message('Leider haben Sie nicht das richtige Passwort eingegeben.', call. = FALSE)
  }  else {
    compile('ggplot_lo')
  }
}


#' @rdname Loesungen
#' @export
Loesungen_3 <- function(password) {
  library(learnr)
  if (!('fontawesome' %in% rownames(installed.packages()))) {
    devtools::install_github("rstudio/fontawesome", upgrade = 'never')
  }
  if (!('gradethis' %in% rownames(installed.packages()))) {
    devtools::install_github('rstudio-education/gradethis', upgrade = 'never')
  }
  library(gradethis)
  
  if (digest::digest(password) != 'bceb7f9cf226a3f0de2f62f1ebc6645e') {
    message('Leider haben Sie nicht das richtige Passwort eingegeben.', call. = FALSE)
  }  else {
    compile('loops_lo')
  }
}


#' @rdname Loesungen
#' @export
Loesungen_4 <- function(password) {
  library(learnr)
  if (!('fontawesome' %in% rownames(installed.packages()))) {
    devtools::install_github("rstudio/fontawesome", upgrade = 'never')
  }
  if (!('gradethis' %in% rownames(installed.packages()))) {
    devtools::install_github('rstudio-education/gradethis', upgrade = 'never')
  }
  library(gradethis)
  
  if (digest::digest(password) != 'f644934d7c6c545edd00fb3ce51cf2d0') {
    message('Leider haben Sie nicht das richtige Passwort eingegeben.', call. = FALSE)
  }  else {
    compile('partial_lo')
  }
}

#' @rdname Loesungen
#' @export
Loesungen_5 <- function(password) {
  library(learnr)
  if (!('fontawesome' %in% rownames(installed.packages()))) {
    devtools::install_github("rstudio/fontawesome", upgrade = 'never')
  }
  if (!('gradethis' %in% rownames(installed.packages()))) {
    devtools::install_github('rstudio-education/gradethis', upgrade = 'never')
  }
  library(gradethis)
  
  if (digest::digest(password) != '9ebc716ceac724a23f12c0bbf9b2eb25') {
    message('Leider haben Sie nicht das richtige Passwort eingegeben.', call. = FALSE)
  }  else {
    compile('reg1_lo')
  }
}


#' @rdname Loesungen
#' @export
Loesungen_6 <- function(password) {
  library(learnr)
  if (!('fontawesome' %in% rownames(installed.packages()))) {
    devtools::install_github("rstudio/fontawesome", upgrade = 'never')
  }
  if (!('gradethis' %in% rownames(installed.packages()))) {
    devtools::install_github('rstudio-education/gradethis', upgrade = 'never')
  }
  library(gradethis)
  if (digest::digest(password) != 'ca0c539ff3445d34066061b829281ff3') {
    message('Leider haben Sie nicht das richtige Passwort eingegeben.', call. = FALSE)
  }  else {
    compile("reg2_lo")
  }
}

#' @rdname Loesungen
#' @export
Loesungen_7 <- function(password) {
  library(learnr)
  if (!('fontawesome' %in% rownames(installed.packages()))) {
    devtools::install_github("rstudio/fontawesome", upgrade = 'never')
  }
  if (!('gradethis' %in% rownames(installed.packages()))) {
    devtools::install_github('rstudio-education/gradethis', upgrade = 'never')
  }
  library(gradethis)
  
  if (digest::digest(password) != "6adb4894cab39c7d479b5284a1a907b2") {
    message('Leider haben Sie nicht das richtige Passwort eingegeben.', call. = FALSE)
  }  else {
    compile("Reg3_lo")
  }
}


#' @rdname Loesungen
#' @export
Loesungen_8 <- function(password) {
  library(learnr)
  if (!('fontawesome' %in% rownames(installed.packages()))) {
    devtools::install_github("rstudio/fontawesome", upgrade = 'never')
  }
  if (!('gradethis' %in% rownames(installed.packages()))) {
    devtools::install_github('rstudio-education/gradethis', upgrade = 'never')
  }
  library(gradethis)
  
  if (digest::digest(password) != "8907a926ba43ceb87047b0055529250c") {
    message('Leider haben Sie nicht das richtige Passwort eingegeben.', call. = FALSE)
  }  else {
    compile("Reg4_lo")
  }
}


#' @rdname Loesungen
#' @export
Loesungen_9 <- function(password) {
  library(learnr)
  if (!('fontawesome' %in% rownames(installed.packages()))) {
    devtools::install_github("rstudio/fontawesome", upgrade = 'never')
  }
  if (!('gradethis' %in% rownames(installed.packages()))) {
    devtools::install_github('rstudio-education/gradethis', upgrade = 'never')
  }
  library(gradethis)
  
  if (digest::digest(password) != '74d23e6e14f37277d493c589681bbb2b') {
    message('Leider haben Sie nicht das richtige Passwort eingegeben.', call. = FALSE)
  }  else {
    compile('anova1_lo')
  }
}


#' @rdname Loesungen
#' @export
Loesungen_10 <- function(password) {
  library(learnr)
  if (!('fontawesome' %in% rownames(installed.packages()))) {
    devtools::install_github("rstudio/fontawesome", upgrade = 'never')
  }
  if (!('gradethis' %in% rownames(installed.packages()))) {
    devtools::install_github('rstudio-education/gradethis', upgrade = 'never')
  }
  library(gradethis)
  
  if (digest::digest(password) != 'd80a449086d4afa9ea0e22d12e9f2bc2') {
    message('Leider haben Sie nicht das richtige Passwort eingegeben.', call. = FALSE)
  }  else {
    compile('anova2_lo')
  }
}

#' @rdname Loesungen
#' @export
Loesungen_11 <- function(password) {
  library(learnr)
  if (!('fontawesome' %in% rownames(installed.packages()))) {
    devtools::install_github("rstudio/fontawesome", upgrade = 'never')
  }
  if (!('gradethis' %in% rownames(installed.packages()))) {
    devtools::install_github('rstudio-education/gradethis', upgrade = 'never')
  }
  library(gradethis)
  
  if (digest::digest(password) != '013999e6fc9e97e6d40e91caa2afc6cb') {
    message('Leider haben Sie nicht das richtige Passwort eingegeben.', call. = FALSE)
  }  else {
    compile('anova3_lo')
  }
}