data-raw/bonds_MWI.R

In Traore225/AfricanStockMarkets: African Stock Exhange Market

## code to prepare `bonds_MWI` dataset goes here

require(dplyr)
require(DBI)

connect2 <- DBI::dbConnect(odbc::odbc(), "MyCON")
a = DBI::dbSendQuery(connect2, "SELECT pays.nompays, pays.nombourse, pays.devise, 
                                obligation.code_obligation, obligation.num_jourO, 
                                obligation.ValeurOb, obligation.VariationOb, 
                                obligation.VolumeOb
                                FROM obligation
                                INNER JOIN pays ON obligation.numpays = pays.numpays
                                WHERE obligation.numpays = 4;")
bonds_MWI <- DBI::dbFetch(a) %>% dplyr::tibble()

usethis::use_data(bonds_MWI, overwrite = TRUE)