Project Home

shiny_app_url <- trimws(Sys.getenv("SHINY_APP_URL", unset = ""))
shiny_launch_href <- if (nzchar(shiny_app_url)) shiny_app_url else "./app-guide.html"
shiny_launch_label <- if (nzchar(shiny_app_url)) "Launch Shiny App" else "Open Shiny Setup"
Visual Analytics | Quarto + Shiny | AY2025/26

Singapore Tourism Time-Series Visual Analytics

Core Direction

This project reframes Singapore tourism recovery as a comparative time-series problem. The final system combines visual analysis, time-series clustering, and forecasting into one Shiny-supported workflow.

This site is the working base for:

  1. Project proposal updates
  2. Prototype modules
  3. Shiny integration
  4. Team coordination and documentation

Open Proposal Open Clustering Prototype Open Poster Open Shiny App Page Open Shiny Setup

Working Modules

Time Series Visual Analysis

Compare selected countries and transport modes through raw, indexed, and share-based views.

Time Series Clustering

Group country trajectories with similar recovery paths and interpret how a selected priority market sits in the wider recovery landscape.

Forecasting

Move from historical comparison into short-term prediction for selected tourism series.

Shiny Integration

Use the website as the entry point, then open or embed the running Shiny app from the Shiny page.

Key Pages

  1. Proposal
  2. Time Series Clustering Prototype
  3. Project Poster
  4. UI Storyboard
  5. Shiny App

Local Run Commands

quarto preview
Rscript run_app.R 3838

Deployment Notes

No deployed Shiny URL is configured in the current render.

When the app is deployed to shinyapps.io, re-render the site with SHINY_APP_URL set to the deployed URL so the website button and preview frame point to the public app instead of the setup page.