coatless-quarto / r-shinylive-demo Goto Github PK

```{shinylive-r}
#| standalone: true
#| viewerHeight: 600
library(shiny)
library(gridlayout)
library(rvest)
library(tidyverse)
library(scales)
library(pageviews)
library(lubridate)
library(bslib)
library(wesanderson)

charts <-
  tibble(
    chart = read_html(str_c(
      "https://en.wikipedia.org/wiki/",
      "Category:Statistical_charts_and_diagrams"
    )) |>
      html_elements(".mw-category-group a") |>
      html_text()
  )

pv <- function(article) {
  article_pageviews(
    project = "en.wikipedia",
    article,
    user_type = "user",
    start = "2015070100",
    end = today()
  )
}

theme_set(theme_bw())

cols <- wes_palette(8, name = "IsleofDogs1", type = "continuous")

ui <- grid_page(
  theme = bs_theme(version = 5, 
                   bootswatch = "simplex",
                   primary = "#9986A5"),
  layout = c(
    "header  header",
    "sidebar line "
  ),
  row_sizes = c(
    "100px",
    "1fr"
  ),
  col_sizes = c(
    "250px",
    "1fr"
  ),
  gap_size = "1rem",
  grid_card(
    area = "sidebar",
    item_alignment = "top",
    title = "Options",
    item_gap = "13px",
    dateRangeInput("dates",
      label = "Date range",
      start = "2015-07-01",
      end = NULL
    ),
    selectizeInput(
      inputId = "article",
      label = "Chart type",
      choices = charts,
      selected = c(
        "Violin plot",
        "Dendrogram",
        "Histogram",
        "Pie chart",
        "Q–Q plot",
        "Error bar"
      ),
      options = list(maxItems = 8),
      multiple = TRUE
    ),
    selectInput(
      inputId = "scales",
      label = "Fixed or free y-axis",
      choices = c("Fixed" = "fixed", "Free" = "free"),
      selected = "fixed"
    ),
    selectInput(
      inputId = "log10",
      label = "Log 10 or normal y-axis",
      choices = c("Log 10" = "log10", "Normal" = "norm"),
      selected = "log10"
    )
  ),
  grid_card_text(
    area = "header",
    content = "   Plot Plotter   ",
    alignment = "center",
    is_title = FALSE
  ),
  grid_card_plot(area = "line")
)

server <- function(input, output, session) {
  subsetr <- reactive({
    req(input$article)
    pageviews <- map_dfr(input$article, pv) |>
      mutate(
        date = ymd(date),
        article = str_replace_all(article, "_", " ")
      ) |>
      filter(date >= input$dates[1], date <= input$dates[2])
  })

  output$line <- renderPlot({
    p <- ggplot(
      subsetr(),
      aes(date,
        views,
        colour = article
      )
    ) +
      geom_line() +
      scale_colour_manual(values = cols) +
      geom_smooth(colour = cols[7]) +
      facet_wrap(~article, nrow = 1, scales = input$scales) +
      theme(
        legend.position = "none",
        axis.text.x = element_text(angle = 45, hjust = 1),
        plot.margin = margin(1, 1, 1, 1, "cm")
      ) +
      labs(
        x = NULL, y = NULL,
        caption = "\nSource: Daily Wikipedia Article Page Views"
      )

    switch(input$log10,
      norm = p,
      log10 = p + scale_y_log10(labels = label_number(scale_cut = cut_short_scale()))
    )
  })
}

shinyApp(ui, server)
```

Error running Rscript (error code 1): <no output>
`C:/Users/arthur/AppData/Local/shinylive/shinylive/Cache/shinylive-0.2.0` assets directory does not exist.

`C:/Users/arthur/AppData/Local/shinylive/shinylive/Cache/shinylive-0.2.0` assets directory does not exist.
Downloading shinylive v0.2.0...
trying URL 'https://github.com/posit-dev/shinylive/releases/download/v0.2.0/shinylive-0.2.0.tar.gz'
Content type 'application/octet-stream' length 254533686 bytes (242.7 MB)
downloaded 147.5 MB

Warning: downloaded length 154707153 != reported length 254533686Warning: URL 'https://objects.githubusercontent.com/github-production-release-asset-2e65be/487125727/7829914b-cc7b-4f3c-8b2d-7ee3cb9c8f70?X-Amz-Algorithm=AWS4-HMAC-SHA256&X-Amz-Credential=AKIAIWNJYAX4CSVEH53A%2F20230922%2Fus-east-1%2Fs3%2Faws4_request&X-Amz-Date=20230922T173955Z&X-Amz-Expires=300&X-Amz-Signature=a9f86f6726d92c9866607225bcc454843faefa46bce022ac85b5061375f9d86f&X-Amz-SignedHeaders=host&actor_id=0&key_id=0&repo_id=487125727&response-content-disposition=attachment%3B%20filename%3Dshinylive-0.2.0.tar.gz&response-content-type=application%2Foctet-stream': Timeout of 60 seconds was reachedError in utils::download.file(url, destfile = tmp_targz, method = "auto") : 
  download from 'https://github.com/posit-dev/shinylive/releases/download/v0.2.0/shinylive-0.2.0.tar.gz' failed