Update care homes to 2025/07/16

Author: IGRiosTC

care_homes/README.md

@@ -25,7 +25,7 @@
 </tr>
 <tr>
 	<td>Temporal coverage</td>
-	<td>As of 2022-06-15</td>
+	<td>As of 2025-07-16</td>
 </tr>
 <tr>
 	<td>Update frequency</td>
@@ -49,6 +49,6 @@
 </tr>
 <tr>
 	<td>Last updated</td>
-	<td>2022-06-22</td>
+	<td>2025-07-22</td>
 </tr>
 </table>

care_homes/index.Rmd

@@ -43,11 +43,11 @@ df <- read_csv("trafford_care_homes.csv") %>%
   <tr>
     <td>Care Quality Commission</td>
     <td><a href="http://www.cqc.org.uk/about-us/transparency/using-cqc-data" target="_blank">Care Quality Commission</a></td>
-    <td><time datetime="2022-06-15">2022-06-15</time></td>
+    <td><time datetime="2025-07-16">2025-07-16</time></td>
     <td>Point data</td>
     <td><a href="http://www.nationalarchives.gov.uk/doc/open-government-licence/version/3/" target="_blank">OGL v3.0</a></td>
     <td>Contains public sector information licensed under the Open Government Licence v3.0</td>
-    <td><time datetime="2022-06-22">2022-06-22</time></td>
+    <td><time datetime="2025-07-22">2025-07-22</time></td>
   </tr>
 </table>
 

care_homes/index.html

@@ -12,7 +12,7 @@ postcodes <- read_csv("https://github.com/traffordDataLab/spatial_data/raw/maste
   select(postcode, lon, lat)
 
 # load and tidy data ---------------------------
-df <- read_csv("https://www.cqc.org.uk/sites/default/files/2022-06/15_June_2022_CQC_directory.csv", skip = 4) %>% 
+df <- read_csv("https://www.cqc.org.uk/sites/default/files/2025-07/16_July_2025_CQC_directory.csv", skip = 4) %>% 
   filter(str_detect(`Service types`, "Nursing homes|Residential homes") & 
          `Local authority` == "Trafford") %>%
   select(name = Name, cqc_id = `CQC Location ID (for office use only)`, type = `Service types`,