Running examples in 'fingertipscharts-Ex.R' failed
The error most likely occurred in:

> ### Name: area_profiles
> ### Title: Plot spine chart
> ### Aliases: area_profiles
> 
> ### ** Examples
> 
> ## An example with differing decimal places for individual indicators
> 
> library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

> df <- create_test_data() %>%
+ mutate(Value = case_when(
+         grepl("2$|4$|6$", IndicatorName) ~ round(Value,1),
+         TRUE ~ round(Value, 0)))
> full_p <- area_profiles(df,
+                         value = Value,
+                         count = Count,
+                         area_code = AreaCode,
+                         local_area_code = "AC122",
+                         indicator = IndicatorName,
+                         timeperiod = Timeperiod,
+                         polarity = Polarity,
+                         significance = Significance,
+                         area_type = AreaType,
+                         median_line_area_code = "C001",
+                         comparator_area_code = "PAC12",
+                         datatable = TRUE,
+                         relative_domain_text_size = 0.75,
+                         relative_text_size = 1.2,
+                         bar_width = 0.68,
+                         indicator_label_nudgex = -0.1,
+                         show_dividers = "outer",
+                         header_positions = c(-0.7, -0.44, -0.35, -0.25,
+                                              -0.15, -0.05, 1.08),
+                         dps = NA)
Error: Column 5 must be named.
Backtrace:
     x
  1. \-fingertipscharts::area_profiles(...)
  2.   \-fingertipscharts:::spine_rescaler(...)
  3.     \-`%>%`(...)
  4.       +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  5.       \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
  6.         \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
  7.           \-fingertipscharts:::`_fseq`(`_lhs`)
  8.             \-magrittr::freduce(value, `_function_list`)
  9.               \-function_list[[i]](value)
 10.                 \-tibble::rownames_to_column(., var = rlang::quo_text(indicator))
 11.                   \-tibble:::repaired_names(c(unique(names2(df)), var))
 12.                     \-tibble:::subclass_name_repair_errors(...)
 13.                       \-base::tryCatch(...)
 14.                         \-base:::tryCatchList(expr, classes, parentenv, handlers)
 15.                           +-base:::tryCatchOne(...)
 16.                           | \-base:::doTryCatch(return(
Execution halted