    ---
    title: "Hello, Quarto"
    format: html
    editor: visual
    ---

    ```{r}
    #| label: load-packages
    #| include: false

    library(tidyverse)
    library(palmerpenguins)
    ```

    ## This example

    This example code mostly from the Quatro guide: https://quarto.org/docs/guide/ . GPL-2.

    Quarto is very similar to R markdown, but also allows (inline) code blocks in Python, Julia, and Observable JS.

    ## Meet Quarto

    Quarto enables you to weave together content and executable code into a finished document. To learn more about Quarto see <https://quarto.org>.

    ## Meet the penguins

    ![](https://raw.githubusercontent.com/quarto-dev/quarto-web/main/docs/get-started/hello/rstudio/lter_penguins.png){style="float:right;" fig-alt="Illustration of three species of Palmer Archipelago penguins: Chinstrap, Gentoo, and Adelie. Artwork by @allison_horst." width="401"}

    The `penguins` data from the [**palmerpenguins**](https://allisonhorst.github.io/palmerpenguins "palmerpenguins R package") package contains size measurements for `{r} nrow(penguins)` penguins from three species observed on three islands in the Palmer Archipelago, Antarctica.

    The plot below shows the relationship between flipper and bill lengths of these penguins.

    ```{r}
    #| label: plot-penguins
    #| warning: false
    #| echo: false
    # NOTE: We may want to add some sort of ighlighting for the above rendering options

    ggplot(penguins,
           aes(x = flipper_length_mm, y = bill_length_mm)) +
      geom_point(aes(color = species, shape = species)) +
      scale_color_manual(values = c("darkorange","purple","cyan4")) +
      labs(
        title = "Flipper and bill length",
        subtitle = "Dimensions for penguins at Palmer Station LTER",
        x = "Flipper length (mm)", y = "Bill length (mm)",
        color = "Penguin species", shape = "Penguin species"
      ) +
      theme_minimal()
    ```

    ```{python}
    #| label: fig-polar
    #| fig-cap: "A line plot on a polar axis"

    import numpy as np
    import matplotlib.pyplot as plt

    r = np.arange(0, 2, 0.01)
    theta = 2 * np.pi * r
    fig, ax = plt.subplots(
      subplot_kw = {'projection': 'polar'}
    )
    ax.plot(theta, r)
    ax.set_rticks([0.5, 1, 1.5, 2])
    ax.grid(True)
    plt.show()
    ```

    ```{julia}
    #| label: fig-parametric
    #| fig-cap: "Parametric Plots"

    using Plots

    plot(sin,
         x->sin(2x),
         0,
         2π,
         leg=false,
         fill=(0,:lavender))
    ```

    ```{ojs}
    viewof bill_length_min = Inputs.range(
      [32, 50],
      {value: 35, step: 1, label: "Bill length (min):"}
    )
    viewof islands = Inputs.checkbox(
      ["Torgersen", "Biscoe", "Dream"],
      { value: ["Torgersen", "Biscoe"],
        label: "Islands:"
      }
    )
    ```