AEDi/devhist.R at master · DistintiveLab/AEDi · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165

#  ------------------------------------------------------------------------
#
# Título : AEDi Histórico de Desenvolvimento
#    Por : Rodrigo Borges (baseado em trabalho de Jimmy Briggs)
#  Date : 2024-05-12
#
#  ------------------------------------------------------------------------

# Library Development Packages --------------------------------------------
if (!require(pacman)) install.packages("pacman")
pacman::p_load(
  usethis,
  devtools,
  desc
)

# Initialize Package ------------------------------------------------------

# setwd("~/pRojetos/AEDi")
usethis::create_package("AEDi")

# ignore this script from build
usethis::use_build_ignore("devhist.R")

# create and ignore admin folder
dir.create("admin")
usethis::use_build_ignore("admin")
usethis::use_git_ignore(c("*", "!.gitignore"), "admin")

# setup namespace and roxygen
usethis::use_namespace()
usethis::use_roxygen_md()
devtools::document()

# setup prelim .R files
usethis::use_package_doc()
usethis::use_tibble() # @return a [tibble][tibble::tibble-package]
usethis::use_pipe()
usethis::use_testthat()
devtools::document()

# setup git
usethis::use_git()
usethis::use_github(private = TRUE)

# Edit DESCRIPTION --------------------------------------------------------
desc::desc_set(Title = "AEDi",
               Description = "Análise Exploratória de Dados e gerenciamento de indicadores interativo")

# add authors
desc::desc_add_author(given = "Rodrigo",
                      family = "Borges",
                      role = c("auth","crea"),
                      email = "rodrigo@borges.net.br")

desc::desc_add_author(given = "Lab Cidades Ufes",
                      role = "fnd")

# license
usethis::use_mit_license(name = "Oliver Wyman Actuarial Consulting, Inc.")

desc::desc_normalize()

# document, check, build, install
devtools::document()
devtools::check()
devtools::build()
devtools::install()

# Documentation -----------------------------------------------------------
usethis::use_readme_rmd()
usethis::use_logo("inst/app/www/aedi_logo_new.png")
usethis::use_lifecycle_badge("Experimental")
usethis::use_badge(
  "Project Status: WIP",
  href = "http://www.repostatus.org/#wip",
  src = "https://www.repostatus.org/badges/latest/wip.svg"
)
knitr::knit("README.Rmd")

# setup lifecycle
usethis::use_lifecycle()
# ● Refer to functions with `lifecycle::fun()`
# ● Add badges inshiny::iconumentation topics by inserting this macro:
# \lifecycle{experimental}
#shinydashboard::menuSubItem
# You can choose from the following lifecycle stages:
#
# - experimental
# - maturing
# - stable
# - qushinydashboard::menuItemg
# - soft-deprecated
# - deprecated
# - defunct
# - archived

usethis::use_rmarkdown_template("Data Validation Report")

dir.create("inst/app")

golem::add_ui_server_files(pkg = getwd())
golem::add_css_file("styles", getwd())
golem::add_js_file("custom", getwd())

golem::use_recommended_deps() # DT, glue, golem, shiny
golem::use_recommended_tests()

golem::detach_all_attached()
golem::document_and_reload()

# initialize R functions
usethis::use_r("utils")
usethis::use_r("run_app")
usethis::use_r("app_ui")
usethis::use_r("app_server")
# usethis::use_r("ui_elements")
usethis::use_r("ui_helpers")
usethis::use_r("ui_header")
usethis::use_r("ui_sidebar")
usethis::use_r("ui_body")
usethis::use_r("ui_rightbar")
usethis::use_r("contact_dropdown")
usethis::use_r("header_buttons_module")
usethis::use_r("upload_data_module")
usethis::use_r("tables")

attachment::att_to_description(

  extra.suggests = c("golem",
                     "testthat",
                     "pkgload",
                     "usethis",
                     "attachment")
)

attachment::create_dependencies_file(to = "inst/docs/dependencies.R")

usethis::use_data_raw("demo_data")


usethis::use_package("shiny")
usethis::use_package("shinydashboard")
usethis::use_package("shinyjs")
usethis::use_package("shinyWidgets")
usethis::use_package("shinyFiles")
usethis::use_package("DT")
usethis::use_package("rhandsontable")
usethis::use_package("highcharter")
usethis::use_package("htmltools")
usethis::use_package("attempt")
usethis::use_package("processx")
usethis::use_package("golem", type = "Suggests")
usethis::use_package("shinyEffects", type = "Suggests")
usethis::use_package("rhandsontable")
# usethis::use_package("darkmode")


ghactions::use_ghactions(workflow = ghactions::website())
ghactions::ghactions_events
ghactions::use_ghactions_badge()

pkgdown::build_site()
pkgdown::preview_site()