gsiterator template

gsiterator.R

library(tidyverse)
library(googlesheets)

# Authorize user on Google
gs_auth(new_user = TRUE)

# Naming the sheet
name_of_googlesheet <- "Testing out gsiterator"

# Test array
states <- state.name

# Generic loop
for (i in 1:length(states)) {
  
  # Creating a random dataframe row
  state <- states[i]
  important_number <- sample(1:100, 1)
  row <- data.frame(state, important_number)
  
  if (i == 1) {
    # Creating a big dataframe base
    df <- row
    # Creating a new google sheet
    gs_new  <- gs_new(name_of_googlesheet, input=df)
  } else {
    # Binding the row to the big dataframe
    df <- rbind(df, row)
    
    # Appending the new row to the google sheet
    gs_new <- gs_new %>%
      gs_add_row(input=row)
  }
  
  # Every 10 rows, write it out as a csv locally
  if (i %% 10 == 0) {
    write.csv(df, "combined_all.csv")
  }

}