data-raw/share_EGY.R

In Traore225/AfricanStockMarkets: African Stock Exhange Market

## code to prepare `share_EGY` dataset goes here

require(dplyr)
require(DBI)

connect2 <- DBI::dbConnect(odbc::odbc(), "MyCON")
a = DBI::dbSendQuery(connect2, "SELECT pays.nompays, actione.Nom_entreprise, actione.num_jourA, 
                                actione.ValeurAction, actione.VariationAction, 
                                actione.VolumeAction
                                FROM actione
                                INNER JOIN pays ON actione.numpays = pays.numpays
                                WHERE actione.numpays = 12 ;")
share_EGY <- DBI::dbFetch(a) %>% dplyr::tibble()

usethis::use_data(share_EGY, overwrite = TRUE)