My first presentation

Francesco Carabba

francesco.carabba@unibz.it

Introduction

Quarto

I’m a list
But I’m not incremental
Even though I’m supposed to be

You can force incremental contents (if you have incremental: false in the YAML)

By pausing the contents

This is how you do it:

Bullets

When you click the Render button a document will be generated that includes:

Content authored with markdown
Output from executable code

library(dplyr)
library(ggplot2)
library(plotly)
library(shiny)

Code

When you click the Render button a presentation will be generated that includes both content and the output of embedded code. You can embed code like this:

1 + 1

[1] 2

Other section

A new slide

vediamo se è più piccolo

slide di un’immagine

la metto nella posizione che voglio io

immagine staked

immagine staked pro

This text will turn green

Slide speaker note

Let’s say you are presenting something that is really complicated and you need some boost of confidence

##Footnotes: Code

My blood brother is an immigrant, a beautiful immigrant ¹

Code highight

mtcars %>%                               
  ggplot( aes(mpg, hp)) +   
  geom_point()

Code animation

# Create a scatterplot with a smoothing function
mtcars %>%                               
  ggplot( aes(mpg, hp)) +   
  geom_point()

Code animation

# Create a scatterplot with a smoothing function
mtcars %>%                               
  ggplot( aes(mpg, hp, color = gear)) +   
  geom_point() + 
  geom_smooth(method = "lm")

Output location: Dealyed along the code column-fragment

mtcars %>%                               
  ggplot( aes(mpg, hp, color = gear)) +   
  geom_point() + 
  geom_smooth(method = "lm")

Output location: Next slide slide

#| fig-align: center
#| output-location: slide
#| code-line-numbers: "|3|"

mtcars %>%                               
  ggplot( aes(mpg, hp, color = gear)) +   
  geom_point() + 
  geom_smooth(method = "lm")

Output location: Along the code column

mtcars %>%                               
  ggplot( aes(mpg, hp, color = gear)) +   
  geom_point() + 
  geom_smooth(method = "lm")

Interactivity

Basics of interactivity with ggplotly

graph = mtcars %>%
  ggplot( aes(mpg, hp, color = gear)) +
  geom_point() +
  geom_smooth()
ggplotly(graph)

#shiny app

1 shiny app

ui = fluidPage(
selectInput(inputId = "mySelection", 
            label = h3("Select box"),
    choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3),
    selected = 1), 
  
  verbatimTextOutput(
  outputId = "myOutput"
)
  
)

server = function(input, output) {
  output$myOutput = renderText({
    paste(paste("This is my choice"), input$mySelection)
  })
}

shinyApp(ui, server)

Shiny applications not supported in static R Markdown documents