URL: https://github.com/maxconway/gsheet

BugReports: https://github.com/maxconway/gsheet/issues

Imports: rvest,

stringr

stringr,

magrittr

Suggests: testthat

# Generated by roxygen2 (4.1.0): do not edit by hand

# Generated by roxygen2 (4.1.1): do not edit by hand

export(gsheet2tbl)

export(gsheet2text)

import(rvest)

import(stringr)

import(magrittr)

gsheet2text<-function(url,format='csv',sheetid=NULL){

key<- str_extract(url,'[[:alnum:]_-]{30,}')

if(is.null(sheetid)& str_detect(url,'gid=[[:digit:]]+')){

sheetid<-url %>% str_extract('gid=[[:digit:]]+') %>% str_extract('[[:digit:]]+') %>% as.numeric()

key<-stringr::str_extract(url,'[[:alnum:]_-]{30,}')

if(is.null(sheetid)&stringr::str_detect(url,'gid=[[:digit:]]+')){

sheetid<-url %>%stringr::str_extract('gid=[[:digit:]]+') %>%stringr::str_extract('[[:digit:]]+') %>% as.numeric()

}

address<- paste0('https://spreadsheets.google.com/feeds/download/spreadsheets/Export?key=',key,'&exportFormat=',format)

if(!is.null(sheetid)){

address<- paste0(address,'&gid=',sheetid)

}

page<- html(address)

if(page %>% html_nodes('script') %>% length()>0|page %>% html_nodes('style') %>% length()>0){

page<-rvest::html(address)

if(page %>%rvest::html_nodes('script') %>% length()>0|page %>%rvest::html_nodes('style') %>% length()>0){

stop("Unable to retrieve document. Is 'share by link' enabled for this sheet?")

}

content<- html_text(html_node(page,'p'))

content<-rvest::html_text(rvest::html_node(page,'p'))

return(content)

}

%Generatedby roxygen2 (4.1.0):donoteditbyhand

%Generatedby roxygen2 (4.1.1):donoteditbyhand

%PleaseeditdocumentationinR/gsheet2tbl.R

\name{gsheet2tbl}

\alias{gsheet2tbl}

%Generatedby roxygen2 (4.1.0):donoteditbyhand

%Generatedby roxygen2 (4.1.1):donoteditbyhand

%PleaseeditdocumentationinR/gsheet2text.R

\name{gsheet2text}

\alias{gsheet2text}