sethnr

library(ggmap)
library(tidyverse)


# get text addresses -----------------------------------------

locstrings <- c("bridgeport, CT", "350 george st, New Haven, CT", "Yale Whale")

#register_google(key="<<maps API key>>", write=T)

sethnr

library(tidyverse)

#test data
testtab <- data.frame("xval" = c(1:10),
                     "sample1" = sin(1:10),
                     "sample2" = sin(4:13)) %>% 
              pivot_longer(contains("sample"),values_to="yval",names_to = "set") %>% 
              arrange("xval")

#make table of last values