R/tempo_search.R

In RProjectRomania/TEMPO: Tools for NSI Romania Open data

#' @title Get TOC for Tempo Online database filtered by keyword
#'
#' @description 
#' Searches for datasets codes in TOC based on specified keywords, 
#' to be used with tempo_bulk function. 
#' 
#' @param keyword  Character vector with multiple keywords to be matched. 
#'
#' @param language  String to set the language for the downloaded
#' tables. Options: "ro" - for Romanian and "en" - for English. If no parameter
#' is given, implicitly downloads tables in Romanian.
#' 
#' @return Returns a dataframe object. 
#' 
#' @details Downloads Table Of Contents (TOC) for Tempo Online database  
#' and returns a TOC subset based on specified keywords.
#' E.g. all TOC entries related to education.
#' 
#' @examples \dontrun{
#' tempo_search(c("education", "industry"))
#' }
#' @import curl
#' @import jsonlite
#' @export

tempo_search <- function(keyword = c()){
  toc <- tempo_toc()
  vchar <- apply(toc, 1 ,paste, collapse = " ")
  matched <- sapply(tolower(keyword), grep, tolower(vchar))
  index <- sort(unlist(matched))
  
  return(toc[index,])
}