---
title: "Tutorial"
output:
  learnr::tutorial:
    progressive: true
    allow_skip: true
runtime: shiny_prerendered
description: "Mi super genial tutorial de R"
---

```{r setup, include=FALSE}
library(learnr)
knitr::opts_chunk$set(echo = FALSE)
```


## Tema 1

### Ejercicios

*Aquí hay un ejercicio simple con un fragmento de código vacío proporcionado para ingresar la respuesta.*

Escriba el código R requerido para sumar dos más dos:

```{r dos-mas-dos, exercise=TRUE}

```

### Ejercicio con código para completar

*Aquí hay un ejercicio con un código preescrito en el ejercicio, y el parámetro `exercise.lines = 5` para proporcionar un poco más de espacio inicial para trabajar.*

Ahora escribe una función que sume dos números y luego llámela para sumar 3 + 5:

```{r funcion-sumar, exercise=TRUE, exercise.lines = 5}
sumar <- function(___,___) {
  ______
}

sumar(___,___)
```

```{r funcion-sumar-hint}
sumar <- function(___,___) {
  # Aqui debe ir el calculo sumando los dos parámetros 
  # que debe tener la función para recibir los dos números a sumar
}

sumar(___,___)
```

```{r funcion-sumar-solution}
sumar <- function(numero1,numero2) {
  numero1+numero2
}

sumar(5,3)
```


## Tema 2

### Preguntas

*Se puede incluir cualquier número de preguntas de opción única o múltiple. UPara esto se usa la función `question` para definir una pregunta y la función` quiz` para agrupar varias preguntas.*

```{r quiz_1}

quiz(
  question("¿Qué paquete del listado nos permite realizar gráficos?", 
  correct = "Buen trabajo!, ggplot2 es el paquete que nos permite realizar gráficos.", 
  allow_retry = TRUE,
    answer("ggplot", message = "Cerca, pero no...intentalo de nuevo!"),
    answer("gplot2", message = "Nop...intentalo de nuevo!"),
    answer("plot2", message = "Incorrect. Intenta de nuevo!."),
    answer("ggplot2", correct = TRUE)
  ), caption = "Visualización"
)

```

Otra serie de preguntas agrupadas y con más de una respuesta correcta:

```{r quiz}
quiz(
  question("¿Qué paquete contiene funciones para instalar otros paquetes R?",
    answer("base"),
    answer("tools"),
    answer("utils", correct = TRUE),
    answer("codetools")
  ),
  question("¿Cuál de los paquetes R enumerados a continuación se usa para crear gráficos?",
    answer("lattice", correct = TRUE),
    answer("tools"),
    answer("stats"),
    answer("grid", correct = TRUE)
  )
)
```
