package_building.R

rm(list=ls());if(!("rstudioapi" %in% installed.packages()[,"Package"])){install.packages("rstudioapi")};require("rstudioapi");
setwd(dirname(rstudioapi::getActiveDocumentContext()$path));setwd("./")
getwd()
rstudioapi::isAvailable("0.99.149")


devtools::install_github("r-lib/devtools")
install.packages("reshape")
#
usethis::use_package("reshape",type = "Depends")
usethis::use_package("questionr",type = "Depends")
usethis::use_package("knitr",type = "Depends")
usethis::use_package("dplyr",type = "Depends")
usethis::use_package("tidyr",type = "Depends")
usethis::use_package("magrittr",type = "Depends")

library(roxygen2)
library(devtools)
library(survey)
library(dplyr)
library(magrittr)
library(questionr)

has_devel()
print(has_devel())

.onLoad <- function(libname, pkgname){
  packageStartupMessage("Welcome to a package that does statistics")
}

usethis::use_test()


print(rtools_path() )
has_rtools()
devtools::build()
devtools::load_all()
devtools::document()
devtools::test()
devtools::build_vignettes()


### Making the package more efficient

install.packages("profvis")
library(profvis)

### From Chiara's RMD
# profvis({
#   Output <- from_analysisplan_map_to_output(clData, analysisplan = myPlan, weighting = thisWeighting, questionnaire = quest)
# })