AQLTools: AQLT Toolkit

## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE, size = "small")

## ----echo=FALSE---------------------------------------------------------------
data<-matrix(c("Indicateur synthétique","100","106","108","109","108","Production passée","5","9","17","14","10","Stocks","13","7","6","5","6","Carnets de commandes globaux","-18","-9","-6","-5","-3","Carnets de commandes étrangers","-14","-5","-1","-2","-2","Perspectives personnelles de production","5","11","12","16","13","Perspectives générales de production","-9","3","1","7","17"),
          nrow=7,byrow = TRUE)
data<-data.frame(data, stringsAsFactors = FALSE)
data[,-1]<-apply(data[,-1],2,as.numeric)
colnames(data)<-c("Industrie manufacturière","Moy*","Mars-17","Avr-17","Mai-17","Juin-17")
knitr::kable(data, caption = "",align=c("l",rep("c",5)))

## ----eval=FALSE---------------------------------------------------------------
#  x <- ctrl_v()
#  x

## ----echo=F-------------------------------------------------------------------
# colnames(data)<-gsub("\\W","\\.",colnames(data))
data

## ----eval=F-------------------------------------------------------------------
#  ctrl_c(x)