R/GetRegData.R

In Rapporteket/hidra: What the Package Does (One Line, Title Case)

#' Provide dataframe of registry data
#'
#' Provides a dataframe containing data from a registry
#'
#' @param registryName String providing the current registryName
#' @return regData data frame
#' @export

getRegData <- function(registryName) {

  dbType <- "mysql"

  query <- "
SELECT
  AvdRESH AS Avdeling,
  COUNT(*) AS n
FROM
  AlleVarNum
GROUP BY
  AvdRESH;
"

  regData <- rapbase::LoadRegData(registryName, query, dbType)

  return(regData)
}