R/mysql.R

In takewiki/tsdo: data objects in takewiki solutions

type_mysql_toR <- function(x) {
  flag = class(x)
  res =switch (flag,
               character = as.character(x),
               integer = as.integer(x),
               decimal.Decimal = as.numeric(x)
               
               
  )
  return(res)
}