## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----gh-installation, eval = FALSE--------------------------------------------
# # install.packages("remotes")
# remotes::install_github("ThinkR-open/dockerfiler")

## ----eval = FALSE-------------------------------------------------------------
# install.packages("dockerfiler")

## -----------------------------------------------------------------------------
library(dockerfiler)
# Create a dockerfile template
my_dock <- Dockerfile$new()
my_dock$MAINTAINER("Colin FAY", "contact@colinfay.me")

## -----------------------------------------------------------------------------
my_dock$RUN(r(install.packages("attempt", repos = "https://cloud.r-project.org")))

## -----------------------------------------------------------------------------
my_dock$RUN("mkdir /usr/scripts")
my_dock$RUN("cd /usr/scripts")
my_dock$COPY("plumberfile.R", "/usr/scripts/plumber.R")
my_dock$COPY("torun.R", "/usr/scripts/torun.R")
my_dock$EXPOSE(8000)
my_dock$CMD("Rscript /usr/scripts/torun.R ")

## -----------------------------------------------------------------------------
my_dock

## -----------------------------------------------------------------------------
# Switch line 8 and 7
my_dock$switch_cmd(8, 7)
my_dock

## -----------------------------------------------------------------------------
my_dock$remove_cmd(8)
my_dock

## -----------------------------------------------------------------------------
my_dock$remove_cmd(5:7)
my_dock

## -----------------------------------------------------------------------------
my_dock$add_after(
  cmd = "RUN R -e 'remotes::install_cran(\"rlang\")'", 
  after = 3
)

## ----eval = FALSE-------------------------------------------------------------
# my_dock$write()

## ----eval = FALSE-------------------------------------------------------------
# my_dock <- dock_from_desc("DESCRIPTION")
# 
# my_dock$CMD(r(library(dockerfiler)))
# 
# my_dock$add_after(
#   cmd = "RUN R -e 'remotes::install_cran(\"rlang\")'",
#   after = 3
# )

## ----eval = FALSE-------------------------------------------------------------
# my_dock <- dock_from_renv(lockfile = "renv.lock")
# my_dock

## ----eval = FALSE-------------------------------------------------------------
# my_dock <- parse_dockerfile("Dockerfile")
# my_dock
# my_dock$RUN(r(library(dockerfiler)))
# my_dock$write("Dockerfile")