R/get_link.R

In jr-packages/jrTypeform: Jumping Rivers: Typeform survey generation package

#' Viewing feedback links
#'
#' This is a function that displays the web URL that will take
#' you directly to the questionnaire.
#' @importFrom dplyr filter %>%
#' @param api An authentication key
#' @export
get_link = function() {
  training_info = get_training_info()
  year_month = format(as.Date(training_info$Date), "%Y-%m")
  workspace_forms = get_workspace_forms(year_month, api)
  desired_form = workspace_forms %>%
    filter(title == paste(training_info$Presenter, "_",
                          training_info$Client, "_",
                          training_info$Date))
  desired_form$questionnaire_url
}
utils::globalVariables(c("Presenter", "Client", "Date"))