R/logit_.R

In shohei-doi/transtataR: Interpreting Stata code in R

#' Title
#'
#' @param fml
#' @param .if
#'
#' @return
#' @export
#'
#' @examples
logit_ <- function(.arg = NULL, .if = NULL, .opt = NULL) {

  fml <- make_fml(.arg)

  if (!is.null(.if)) {

    rcode <-
      stringr::str_glue(
        'model <<- glm({fml}, family = binomial(link = "logit"), data = dat, if = .if)'
      )

  }

  rcode <-
    stringr::str_glue(
      'model <<- glm({fml}, family = binomial(link = "logit"), data = dat)'
    )

  rcode <- c(rcode,
             "broom::tidy(model, conf.int = TRUE)",
             "broom::glance(model)")

  return(rcode)

}