diff --git a/DESCRIPTION b/DESCRIPTION
index 5cdb3e9..a3e5259 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -27,6 +27,8 @@ Imports:
     lubridate, 
     purrr, 
     tidyr,
+    janitor,
+    googledrive,
 Suggests: testthat (>= 3.0.0)
 Config/testthat/edition: 3
 Encoding: UTF-8
diff --git a/NAMESPACE b/NAMESPACE
index c71a7a7..e7d8423 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -15,13 +15,13 @@ export(get_ga_user)
 export(get_github)
 export(get_github_metrics)
 export(get_github_user)
-export(get_google_files)
 export(get_repo_list)
 export(get_repos_metrics)
 export(get_youtube_stats)
 export(gh_repo_wrapper)
 export(list_calendly_events)
 export(request_ga)
+export(request_google_forms)
 importFrom(assertthat,assert_that)
 importFrom(assertthat,is.string)
 importFrom(dplyr,"%>%")
@@ -37,6 +37,7 @@ importFrom(httr,content)
 importFrom(httr,oauth2.0_token)
 importFrom(httr,oauth_app)
 importFrom(httr,oauth_endpoints)
+importFrom(janitor,make_clean_names)
 importFrom(jsonlite,fromJSON)
 importFrom(lubridate,today)
 importFrom(purrr,map)
diff --git a/R/auth.R b/R/auth.R
index 3975fd1..5673a70 100644
--- a/R/auth.R
+++ b/R/auth.R
@@ -71,6 +71,7 @@ authorize <- function(app_name = NULL,
       scope = scopes_list,
       ...
     )
+    googledrive::drive_auth(token = token)
   }
   set_token(token = token, app_name = app_name)
   return(invisible(token))
diff --git a/R/google-forms.R b/R/google-forms.R
index e376172..d671286 100644
--- a/R/google-forms.R
+++ b/R/google-forms.R
@@ -2,9 +2,258 @@
 
 #' Get Google Forms
 #' @description This is a function to get the Calendly API user info
-#' @param token You can provide the a googledrive link that you'd like to narrow the search to
-#' @return Calendly REST API response as a list
-#' @importFrom utils menu installed.packages
-#' @importFrom httr oauth_app oauth_endpoints oauth2.0_token
+#' @param url The endpoint URL for the request
+#' @param token credentials for access to Google using OAuth. `authorize("google")`
+#' @param body_params The body parameters for the request
+#' @param query_params The body parameters for the request
+#' @param return_request Should a list of the request be returned as well?
+#' @returns This function returns a list from a API response JSON file
+#' @importFrom httr config accept_json content
+#' @importFrom jsonlite fromJSON
+#' @importFrom assertthat assert_that is.string
 #' @export
-#' @examples
+request_google_forms <- function(token, url, body_params = NULL, query_params = NULL,
+                                 return_request = TRUE) {
+  if (is.null(token)) {
+    # Get auth token
+    token <- get_token(app_name = "google")
+  }
+  config <- httr::config(token = token)
+
+  result <- httr::GET(
+    url = url,
+    body = body_params,
+    query = query_params,
+    config = config,
+    httr::accept_json(),
+    encode = "json"
+  )
+
+  request_info <- list(
+    url = url,
+    token = token,
+    body_params = body_params,
+    query_params = query_params
+  )
+
+  if (httr::status_code(result) != 200) {
+    httr::stop_for_status(result)
+    return(result)
+  }
+
+  # Process and return results
+  result_content <- httr::content(result, "text")
+  result_list <- jsonlite::fromJSON(result_content)
+
+  if (return_request) {
+    return(list(result = result_list, request_info = request_info))
+  } else {
+    return(result_list)
+  }
+}
+
+
+#' Get Google Forms
+#' @description This is a function to get Google Form info and responses from the API
+#' @param form_id The form ID we need to get
+#' @param token credentials for access to Google using OAuth. `authorize("google")`
+#' @param dataformat What format would you like the data? Options are "raw" or "dataframe". "dataframe" is the default.
+#' @returns This returns a list of the form info and responses to the google form. Default is to make this a list of nicely formatted dataframes.
+#' @examples \dontrun{
+#'
+#' authorize("google")
+#' form_info <- get_google_form("https://docs.google.com/forms/d/1Z-lMMdUyubUqIvaSXeDu1tlB7_QpNTzOk3kfzjP2Uuo/edit")
+#'
+#' ### OR You can give it a direct form id
+#' form_info <- get_google_form("1Z-lMMdUyubUqIvaSXeDu1tlB7_QpNTzOk3kfzjP2Uuo")
+#' }
+get_google_form <- function(form_id, token = NULL, dataformat = "dataframe") {
+  # If a URL is supplied, only take the ID from it.
+  if (grepl("https:", form_id[1])) {
+    form_id <- gsub("\\/viewform$|\\/edit$", "", form_id)
+    form_id <- gsub("https://docs.google.com/forms/d/e/|https://docs.google.com/forms/d/", "", form_id)
+  }
+
+  form_info_url <- gsub("\\{formId\\}", form_id, "https://forms.googleapis.com/v1/forms/{formId}")
+  form_response_url <- gsub("\\{formId\\}", form_id, "https://forms.googleapis.com/v1/forms/{formId}/responses")
+
+  message(paste0("Trying to grab form: ", form_id))
+
+  form_info <- request_google_forms(
+    url = form_info_url,
+    token = token
+  )
+
+  response_info <- request_google_forms(
+    url = form_response_url,
+    token = token,
+    return_request = TRUE
+  )
+
+  result <- list(
+    form_metadata = form_info,
+    response_info = response_info
+  )
+
+  if (dataformat == "dataframe") {
+
+    metadata <- get_question_metadata(form_info)
+
+    if (length(result$response_info$result) > 0) {
+      answers_df <- extract_answers(result)
+    } else {
+      answers_df <- "no responses yet"
+    }
+    return(list(title = result$form_metadata$result$info$title,
+                metadata = metadata,
+                answers = answers_df))
+  }
+  return(result)
+}
+
+
+#' Get multiple Google forms
+#' @description This is a wrapper function for returning google form info and responses for multiple forms at once
+#' @param form_ids a vector of form ids you'd like to retrieve information for
+#' @param token credentials for access to Google using OAuth. `authorize("google")`
+#' @returns This returns a list of API information for google forms
+#' @importFrom purrr map
+#' @importFrom janitor make_clean_names
+#' @examples \dontrun{
+#'
+#' authorize("google")
+#' form_list <- googledrive::drive_find(shared_drive = googledrive::as_id("0AJb5Zemj0AAkUk9PVA"), type = "form")
+#'
+#' multiple_forms <- get_multiple_forms(form_ids = form_list$id)
+#' }
+get_multiple_forms <- function(form_ids = NULL, token = NULL) {
+
+  # Get all the forms info
+  all_form_info <- sapply(form_ids, function(form_id) {
+    get_google_form(
+      form_id = form_id,
+      token = token
+    )
+  }, simplify = FALSE, USE.NAMES = TRUE)
+
+
+  # Set up the names
+  titles <- purrr::map(all_form_info, ~ .x$title)
+  titles <- janitor::make_clean_names(titles)
+
+  # Set as names
+  names(all_form_info) <- titles
+
+  all_form_info
+}
+
+#' Google Form handling functions
+#' @description This is a function to get metadata about a Google Form. It is
+#'  used by the `get_google_form()` function if dataformat = "dataframe"
+#'  @param form_info The return form_info list that is extracted in `get_google_form()`
+get_question_metadata <- function(form_info) {
+  metadata <- data.frame(
+    question_id = form_info$result$items$itemId,
+    title = form_info$result$items$title
+  )
+
+  if (length(form_info$result$items$questionItem$question$textQuestion) > 0) {
+    metadata <- data.frame(
+      metadata,
+      paragraph = form_info$result$items$questionItem$question$textQuestion
+    )
+  }
+  if (length(form_info$result$items$questionItem$question$choiceQuestion$type) > 0) {
+    metadata <- data.frame(
+      metadata,
+      choice_question = form_info$result$items$questionItem$question$choiceQuestion$type,
+      text_question = is.na(form_info$result$items$questionItem$question$choiceQuestion$type)
+    )
+  }
+
+  return(metadata)
+}
+
+#' Google Form handling functions -- extracting answers
+#' @description This is a function to get extract answers from a Google Form. It is
+#'  used by the `get_google_form()` function if dataformat = "dataframe"
+#'  @param form_info The return form_info list that is extracted in `get_google_form()`
+extract_answers <- function(form_info) {
+  questions <- form_info$response_info$result$responses$answers
+
+  if (length(questions) > 0) {
+    # Extract the bits we want
+    answers <- purrr::map(
+      questions,
+      ~ .x$textAnswers$answers
+    )
+
+    question_id <- purrr::map(
+      questions,
+      ~ .x$questionId
+    )
+
+    # Reformat the answer info
+    answers <- purrr::map_depth(answers, 2, ~ ifelse(is.null(.x),
+      data.frame(value = "NA"),
+      .x
+    ))
+
+    answers <- purrr::map_depth(answers, -1, ~ ifelse(length(.x) > 1,
+      paste0(.x, collapse = "|"),
+      .x
+    ))
+    answers <- lapply(answers, purrr::map, -1)
+
+    # Turn into data frames
+    answers_df <- lapply(answers, paste0) %>% dplyr::bind_cols()
+    question_df <- lapply(question_id, paste0) %>% dplyr::bind_cols()
+
+    colnames(answers_df) <- paste0(colnames(answers_df), "_answers")
+    colnames(question_df) <- paste0(colnames(question_df), "_question")
+
+    # Put it all in a data.frame we will keep
+    info_df <- data.frame(
+      reponse_id = rep(form_info$response_info$result$responses$responseId, length(questions)),
+      answers_df,
+      question_df
+    )
+  } else {
+    info_df <- data.frame(value = "no responses yet")
+  }
+
+  return(info_df)
+}
+
+
+google_pagination <- function(first_page_result) {
+  # Set up a while loop for us to store the multiple page requests in
+  cummulative_pages <- first_page_result$result$files
+  page <- 1
+
+  next_pg <- try(next_google(first_page_result), silent = TRUE)
+
+  while (!grepl("Error", next_pg$result[1])) {
+    cummulative_pages <- dplyr::bind_rows(cummulative_pages, next_pg$result$files)
+    next_pg <- try(next_google(first_page_result), silent = TRUE)
+    page <- page + 1
+  }
+  return(cummulative_pages)
+}
+
+
+next_google <- function(page_result) {
+  body_params <- c(page_result$request_info$body_params,
+    pageToken = page_result$result$nextPageToken
+  )
+
+  result <- request_google_forms(
+    token = token,
+    url = url,
+    body_params = body_params,
+    query_params = query_params,
+    return_request = TRUE
+  )
+
+  return(result)
+}
diff --git a/R/googledrive.R b/R/googledrive.R
deleted file mode 100644
index 0af453a..0000000
--- a/R/googledrive.R
+++ /dev/null
@@ -1,55 +0,0 @@
-# Extracting data from Google drive files
-
-#' Get list of files from a Google Shared Drive
-#' @description This is a function to get a list of files from a Googledrive location
-#' @param drive_id ID of the drive to retrieve a list of files from.
-#' Otherwise will grab from user's personal drive. Can be a URL like
-#' https://drive.google.com/drive/folders/012345ABCD or just the  "012345ABCD part
-#' @param type What type of file would you like to see? "forms" "sheets" "folder" ?
-#' @importFrom httr config accept_json content
-#' @importFrom jsonlite fromJSON
-#' @importFrom assertthat assert_that is.string
-#' @export
-#' @examples \dontrun{
-#'
-#' authorize("google")
-#' get_google_files()
-#' }
-get_google_files <- function(drive_id = NULL, type = NULL) {
-  # Get endpoint url
-  url <- "https://www.googleapis.com/drive/v3/files"
-
-  # Get auth token
-  token <- get_token("google")
-  config <- httr::config(token = token)
-
-  # Wrapping body parameters in a requests list
-  if (!is.null(drive_id)) {
-    # If a URL is supplied, only take the ID from it.
-    if (grepl("https:", drive_id)) drive_id <- gsub("https://drive.google.com/drive/folders/", "")
-
-    body_params <- list(
-      corpora = "drive",
-      driveId = drive_id,
-      includeItemsFromAllDrives = "true",
-      supportsAllDrives = "true"
-    )
-  } else {
-    # If drive ID is not supplied, just see what this user has
-    body_params <- list(
-      corpora = "user"
-    )
-  }
-
-  # Get list of topics
-  result <- httr::GET(url, config = config, body = body_params, httr::accept_json())
-
-  if (httr::status_code(result) != 200) {
-    httr::stop_for_status(result)
-  }
-
-  # Process and return results
-  result_content <- httr::content(result, "text")
-  result_list <- jsonlite::fromJSON(result_content)
-  return(result_list)
-}
diff --git a/R/token-handlers.R b/R/token-handlers.R
index beae3f1..b3addd1 100644
--- a/R/token-handlers.R
+++ b/R/token-handlers.R
@@ -68,7 +68,8 @@ get_token <- function(app_name, try = FALSE) {
 get_stored_token <- function(app_name) {
   if (app_name == "calendly") token <- getOption("calendly")
   if (app_name == "github") token <- getOption("github")
-  if (app_name == "google") token <- try(readRDS(file.path(cache_secrets_folder(), "google.RDS")), silent = TRUE)
+  if (app_name == "google") token <- getOption("google")
+
   return(token)
 }
 
diff --git a/R/utils.R b/R/utils.R
index 494ac97..9bf8d92 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -1,5 +1,5 @@
 utils::globalVariables(c(
-   "result", "num", "test_name", "scopes", "set_token", "browseURL", "remove_token", "get_token", "get_github", "get_calendly", "%>%"
+  "result", "num", "test_name", "scopes", "set_token", "browseURL", "remove_token", "get_token", "get_github", "get_calendly", "%>%"
 ))
 #' Supported endpoints
 #' @description This is function stores endpoints and supported app names
diff --git a/man/extract_answers.Rd b/man/extract_answers.Rd
new file mode 100644
index 0000000..94de7e7
--- /dev/null
+++ b/man/extract_answers.Rd
@@ -0,0 +1,13 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/google-forms.R
+\name{extract_answers}
+\alias{extract_answers}
+\title{Google Form handling functions -- extracting answers}
+\usage{
+extract_answers(form_info)
+}
+\description{
+This is a function to get extract answers from a Google Form. It is
+ used by the `get_google_form()` function if dataformat = "dataframe"
+ @param form_info The return form_info list that is extracted in `get_google_form()`
+}
diff --git a/man/get_google_files.Rd b/man/get_google_files.Rd
deleted file mode 100644
index 11b9d5c..0000000
--- a/man/get_google_files.Rd
+++ /dev/null
@@ -1,25 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/googledrive.R
-\name{get_google_files}
-\alias{get_google_files}
-\title{Get list of files from a Google Shared Drive}
-\usage{
-get_google_files(drive_id = NULL, type = NULL)
-}
-\arguments{
-\item{drive_id}{ID of the drive to retrieve a list of files from.
-Otherwise will grab from user's personal drive. Can be a URL like
-https://drive.google.com/drive/folders/012345ABCD or just the  "012345ABCD part}
-
-\item{type}{What type of file would you like to see? "forms" "sheets" "folder" ?}
-}
-\description{
-This is a function to get a list of files from a Googledrive location
-}
-\examples{
-\dontrun{
-
-authorize("google")
-get_google_files()
-}
-}
diff --git a/man/get_google_form.Rd b/man/get_google_form.Rd
new file mode 100644
index 0000000..ee5975e
--- /dev/null
+++ b/man/get_google_form.Rd
@@ -0,0 +1,31 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/google-forms.R
+\name{get_google_form}
+\alias{get_google_form}
+\title{Get Google Forms}
+\usage{
+get_google_form(form_id, token = NULL, dataformat = "dataframe")
+}
+\arguments{
+\item{form_id}{The form ID we need to get}
+
+\item{token}{credentials for access to Google using OAuth. `authorize("google")`}
+
+\item{dataformat}{What format would you like the data? Options are "raw" or "dataframe". "dataframe" is the default.}
+}
+\value{
+This returns a list of the form info and responses to the google form. Default is to make this a list of nicely formatted dataframes.
+}
+\description{
+This is a function to get Google Form info and responses from the API
+}
+\examples{
+\dontrun{
+
+authorize("google")
+form_info <- get_google_form("https://docs.google.com/forms/d/1Z-lMMdUyubUqIvaSXeDu1tlB7_QpNTzOk3kfzjP2Uuo/edit")
+
+### OR You can give it a direct form id
+form_info <- get_google_form("1Z-lMMdUyubUqIvaSXeDu1tlB7_QpNTzOk3kfzjP2Uuo")
+}
+}
diff --git a/man/get_multiple_forms.Rd b/man/get_multiple_forms.Rd
new file mode 100644
index 0000000..847edbd
--- /dev/null
+++ b/man/get_multiple_forms.Rd
@@ -0,0 +1,28 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/google-forms.R
+\name{get_multiple_forms}
+\alias{get_multiple_forms}
+\title{Get multiple Google forms}
+\usage{
+get_multiple_forms(form_ids = NULL, token = NULL)
+}
+\arguments{
+\item{form_ids}{a vector of form ids you'd like to retrieve information for}
+
+\item{token}{credentials for access to Google using OAuth. `authorize("google")`}
+}
+\value{
+This returns a list of API information for google forms
+}
+\description{
+This is a wrapper function for returning google form info and responses for multiple forms at once
+}
+\examples{
+\dontrun{
+
+authorize("google")
+form_list <- googledrive::drive_find(shared_drive = googledrive::as_id("0AJb5Zemj0AAkUk9PVA"), type = "form")
+
+multiple_forms <- get_multiple_forms(form_ids = form_list$id)
+}
+}
diff --git a/man/get_question_metadata.Rd b/man/get_question_metadata.Rd
new file mode 100644
index 0000000..96cf9a7
--- /dev/null
+++ b/man/get_question_metadata.Rd
@@ -0,0 +1,13 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/google-forms.R
+\name{get_question_metadata}
+\alias{get_question_metadata}
+\title{Google Form handling functions}
+\usage{
+get_question_metadata(form_info)
+}
+\description{
+This is a function to get metadata about a Google Form. It is
+ used by the `get_google_form()` function if dataformat = "dataframe"
+ @param form_info The return form_info list that is extracted in `get_google_form()`
+}
diff --git a/man/request_google_forms.Rd b/man/request_google_forms.Rd
new file mode 100644
index 0000000..a34c20b
--- /dev/null
+++ b/man/request_google_forms.Rd
@@ -0,0 +1,31 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/google-forms.R
+\name{request_google_forms}
+\alias{request_google_forms}
+\title{Get Google Forms}
+\usage{
+request_google_forms(
+  token,
+  url,
+  body_params = NULL,
+  query_params = NULL,
+  return_request = TRUE
+)
+}
+\arguments{
+\item{token}{credentials for access to Google using OAuth. `authorize("google")`}
+
+\item{url}{The endpoint URL for the request}
+
+\item{body_params}{The body parameters for the request}
+
+\item{query_params}{The body parameters for the request}
+
+\item{return_request}{Should a list of the request be returned as well?}
+}
+\value{
+This function returns a list from a API response JSON file
+}
+\description{
+This is a function to get the Calendly API user info
+}