WebDev4R

Apăsați pentru a desfășura codul library(shiny) library(bslib) library(ggplot2) df_pizza <- gt::pizzaplace |> dplyr::mutate(date_sold = readr::parse_date(date)) |> dplyr::select(-c(date, time)) plot_revenue_by_timeframe <- function( df, timeframe, primary_color="#007bc2" ) { if (!(timeframe %in% c('month', 'quarter', 'week'))) { cli::cli_abort('Unsupported timeframe') ...