From 36af9347794c0cb1a0068be01b72c601136ea1f0 Mon Sep 17 00:00:00 2001
From: robinlovelace <rob00x@gmail.com>
Date: Mon, 7 Oct 2024 19:35:50 +0100
Subject: [PATCH] Remove CycleHireApp-html cross-reference

---
 09-mapping.Rmd | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/09-mapping.Rmd b/09-mapping.Rmd
index 71e4e9bbe..fe25ad526 100644
--- a/09-mapping.Rmd
+++ b/09-mapping.Rmd
@@ -1012,9 +1012,9 @@ Building on this basic example and knowing where to find help (see `?shiny`), th
 The recommended next step is to open the previously mentioned [`CycleHireApp/app.R`](https://github.com/geocompx/geocompr/blob/main/apps/CycleHireApp/app.R) script in an integrated development environment (IDE) of choice, modify it and re-run it repeatedly.
 The example contains some of the components of a web mapping application implemented in **shiny** and should 'shine' a light on how they behave.
 
-The `CycleHireApp/app.R` script contains **shiny** functions that go beyond those demonstrated in the simple 'lifeApp' example (Figure \@ref(fig:CycleHireApp-html)).
-These include `reactive()` and `observe()` (for creating outputs that respond to the user interface --- see `?reactive`) and `leafletProxy()` (for modifying a `leaflet` object that has already been created).
-Such elements are critical to the creation of web mapping applications implemented in **shiny**.
+The `CycleHireApp/app.R` script contains **shiny** functions that go beyond those demonstrated in the simple 'lifeApp' example, deployed at [shiny.robinlovelace.net/CycleHireApp](https://shiny.robinlovelace.net/CycleHireApp).
+These include `reactive()` and `observe()`, (for creating outputs that respond to the user interface, see `?reactive`) and `leafletProxy()` (for modifying a `leaflet` object that has already been created).
+Such elements enable web mapping applications implemented in **shiny** [@lovelace_propensity_2017].
 A range of 'events' can be programmed including advanced functionality such as drawing new layers or subsetting data, as described in the shiny section of RStudio's **leaflet** [website](https://rstudio.github.io/leaflet/shiny.html).
 
 ```{block2 shinynote, type='rmdnote'}
@@ -1042,10 +1042,9 @@ This way your prototype web applications should be limited not by technical cons
 ```{r CycleHireApp-html, echo=FALSE, message=FALSE, fig.cap="CycleHireApp, a simple web mapping application for finding the closest cycle hiring station based on your location and requirement of cycles. Interactive version available online at: r.geocompx.org.",fig.scap="Cycle Hire App, a simple web mapping application.", eval=knitr::is_html_output(), out.width="690"}
 if (knitr::is_html_output()){
   knitr::include_url("https://shiny.robinlovelace.net/CycleHireApp/")
-} else {
-  knitr::include_graphics("images/09_cycle_hire_app.png")
 }
 ```
+
 ## Other mapping packages
 
 **tmap** provides a powerful interface for creating a wide range of static maps (Section \@ref(static-maps)) and also supports interactive maps (Section \@ref(interactive-maps)).