knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(iffitoR)
library(magrittr)
library(RODBC)
library(here)
os=Sys.info()["sysname"]
if(os == "Windows") {
  here::here()
  p = here("inst/extdata/")
  connections = iffitoR::set_connection(p)

  (connections)

  # now we can convert all the tables in one connection into a list of dataframe, by:

  # connect to the dictionary database
  list_of_dfs = iffitoR::make_list_dataframes(connections[[1]])

  for (i in seq_along(list_of_dfs)) {
    print(paste0("Colums-Names in", names(list_of_dfs)[[i]]))
    print(names(list_of_dfs[[i]]))
    print("")
  }
}else{
  print("This wont work here...;)")
}


RobinKohrs/iffitoR documentation built on Sept. 7, 2021, 11:31 p.m.