In jennybc/googlesheets: Manage Google Spreadsheets from R

This just contains code needed to extract the input needed to test drive xml2's XML-authoring capability. And that is actually done in the next file, because I posted that stuff as a gist for sharing with others.

knitr::opts_chunk$set(echo = TRUE)

library(rprojroot)
pkg_root <- find_package_root_file
library(googlesheets)

token_path <- pkg_root("tests", "testthat", "googlesheets_token.rds")
gs_auth(token = token_path, verbose = FALSE)

library(dplyr)
# (ss <- gs_mini_gap() %>% 
#   gs_copy("xml2-test"))
(ss <- gs_title("xml2-test"))
cells_df <- ss %>%
  gs_read_cellfeed(ws = "Africa", return_links = TRUE)
update_fodder <- cells_df %>%
  mutate(update_value = value) %>% 
  select(-cell_alt, -value, -input_value, -numeric_value)
readr::write_csv(update_fodder, "27_update-fodder.csv")

#gs_delete(ss)

jennybc/googlesheets documentation built on Feb. 8, 2022, 11:48 p.m.