Formulas and formatted numbers

NOT_CRAN <- identical(tolower(Sys.getenv("NOT_CRAN")), "true")
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  purl = NOT_CRAN,
  eval = NOT_CRAN
)

Preliminaries

Load googlesheets and dplyr, from which we use the %>% pipe operator and which gives us nicer printing of data frames (tbl_dfs)

library(googlesheets)
suppressMessages(library(dplyr))

TL;DR

To see how your data comes in as a data frame without numeric formatting, try this:

gs_read(..., literal = FALSE)

The googlesheets package comes with functions to access a public Sheet with formulas and formatted numbers. Visit it in the browser or check out this screenshot.

We use it to demo the effect of literal in gs_read(). First we accept the default, which is literal = TRUE.

gs_ff() %>% 
  gs_read(range = cell_cols("B:C"))

See the problem? Numeric formatting causes the first column to come in as character.

Try again with literal = FALSE:

gs_ff() %>% 
  gs_read(literal = FALSE, range = cell_cols("B:C"))

Fixed it! First column is numeric. And we've also gained precision in the second column, previously lost to rounding.

If you want full access to cell contents, use gs_read_cellfeed(..., literal = FALSE) to get a data frame with one per cell. Then take your pick from value, input_value, and numeric_value. Here's an example with lots of formulas:

gs_ff() %>% 
  gs_read_cellfeed(range = cell_cols("E")) %>% 
  select(-cell_alt, -row, -col) %>% 
  knitr::kable()

Read on if you want to know more.

Different notions of cell contents

When working with Google Sheets via the cell feed, there are three ways to define cell contents:

Vocabulary: there's formatting and then there's formatting

Click on the Format menu in Google Sheets and you'll gain access to a "Number" sub-menu and ... lots of other stuff. Let's agree that "formatting" can mean two different things:

Decorative formatting is completely invisible to the Sheets API. It is also a terrible idea to encode data in decorative formatting, though it can be used to visually reinforce information that is properly stored in data (Google Sheets is capable of conditional formatting). Nothing in googlesheets or the rest of this vignette addresses decorative formatting. We shall not speak of it again. From now on, "formatting" means numeric formatting.

A worthy challenge

We've created a formula and formatting ~~nightmare~~ sampler Sheet. Go visit it in the browser!. Or check out this screenshot.

gs-test-formula-formatting-screenshot

It's one of the built-in example sheets. Access it with various functions that start with gs_ff.

Here's how it comes in as a data frame by default: you get "literal values" (suppressing a boring column in order to show the interesting ones).

gs_ff() %>% 
  gs_read() %>% 
  select(-integer)

What if you want unformatted numbers? What if you want the actual formulas? You can now get them the cell feed, which, in googlesheets, means you must use gs_read_cellfeed(). You can cause gs_read() to consult the cell feed by specifying literal = FALSE.

The cell feed

Default methods of reading Sheet data assume that the data occupies a neat rectangle in the upper left corner, that you want all of it, and that you want the literal values.

What if you need more control over which cells? What if you want input or numeric values? Use the cell feed via gs_read_cellfeed(). Under the hood, gs_read() will use the cell feed whenever a cell range is provided, i.e. when the call is like gs_read(..., range = "B4:D9") or gs_read(..., range = cell_cols(4:6)), or when the new argument literal = FALSE.

gs_read_cellfeed() has been extended. As before, we return a data frame with one row per cell, but now we return all 3 notions of cell contents:

cf <- gs_read_cellfeed(gs_ff())

gs-test-formula-formatting-screenshot

cf_printme <- cf %>%
  arrange(col, row) %>%
  select(cell, value, input_value, numeric_value)
## work with purrr v0.2.2 but avoid deprecation warning with v0.2.2.1
## modify_if() is ideal but not in v0.2.2
cf_printme[] <- cf_printme %>%
  purrr::map(~ if(purrr::is_character(.x)) {
    gsub('$', '\\$', .x, fixed = TRUE)
  } else .x)
knitr::kable(cf_printme)

gs-test-formula-formatting-screenshot

Exploration of cell contents

We explore the different cell contents for different variables. This motivates the logic behind what happens when gs_read(..., literal = FALSE) and gs_simply_cellfeed(..., literal = FALSE).

Formatted numbers

Column 2, number_formatted, holds variously formatted numbers. It is quite pathological, because in real life numeric formatting is likely to be uniform within a column, which helps readr make good decisions about type conversion.

cf %>%
  filter(row > 1, col == 2) %>%
  select(value, input_value, numeric_value) %>% 
  readr::type_convert()

Rounded numbers

Column 3, number_rounded, holds numbers with four decimal places, rounded to show just two. Here we want numeric_value.

cf %>%
  filter(row > 1, col == 3) %>%
  select(value, input_value, numeric_value) %>% 
  readr::type_convert()

Formulas

Column 5, formula, holds various formulas, not necessarily numeric. Note we had to truncate input_value for printing purposes.

cf %>%
  filter(row > 1, col == 5) %>%
  select(value, input_value, numeric_value) %>% 
  mutate(input_value = substr(input_value, 1, 43)) %>% 
  readr::type_convert()

Numeric formulas, formatted

Column 6, formula_formatted, holds formatted numeric formulas:

cf %>%
  filter(row > 1, col == 6) %>%
  select(value, input_value, numeric_value) %>% 
  readr::type_convert()

Logic for cell contents when literal = FALSE

Based on the above examples (and more), here's the current logic for which cell contents are used in gs_read(..., literal = FALSE) and gs_reshape_cellfeed(..., literal = FALSE). The goal is to create an input that gives the desired result most often with default behavior of readr::type_convert(). If you think this is wrong, please discuss in an issue.



Try the googlesheets package in your browser

Any scripts or data that you put into this service are public.

googlesheets documentation built on May 2, 2019, 1:57 p.m.