R/get_cssci_name.R

In Gabegit/gmdata: My some useful functions for data tools.

#' list all journals
#' @param jourtype: journal type, if jourtype ="all", it'll list all journals
#' @param type: cscsi type
#' @return data frame
#' @author li guomin
#' @export
#' @examples
#' get_cssci_name() # only economics journals in basic cssci
#' get_cssci_name(jour_type ="管理学")


get_cssci_name <- function(keyword=NA,jour_type ="经济学", type = "cssci"){
	if (!is.na(keyword)) {
		dat <- cssci_2014_2015[which(grepl(keyword,cssci_2014_2015$journame)), c(1,2,5)]
		data <- dat
	} else {
		dat <- cssci_2014_2015[cssci_2014_2015$jourtype == jour_type,c(1,2,5)]
		data <- dat
	}

	return(data)

}

#' list all cssci type
#' @param type: journal type
#' @return a data vector
#' @export
#' @examples
#' cssci_all_type()
#'

cssci_all_jourtype <- function(){
	unique(cssci_2014_2015$jourtype)
}