Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Samuel Granjeaud
analyticyte
Commits
a1851afc
Commit
a1851afc
authored
1 year ago
by
Eugenie Lohmann
🎨
Browse files
Options
Download
Email Patches
Plain Diff
try first step
parent
571e0af8
Changes
7
Hide whitespace changes
Inline
Side-by-side
Showing
7 changed files
with
87 additions
and
43 deletions
+87
-43
.Rhistory
.Rhistory
+41
-41
DESCRIPTION
DESCRIPTION
+1
-0
NAMESPACE
NAMESPACE
+1
-0
R/app_server.R
R/app_server.R
+40
-0
R/data.R
R/data.R
+2
-1
dev/run_dev.R
dev/run_dev.R
+1
-0
man/tools_ex.Rd
man/tools_ex.Rd
+1
-1
No files found.
.Rhistory
View file @
a1851afc
# Sass code compilation
# sass::sass(input = sass::sass_file("inst/app/www/custom.sass"),
# output = "inst/app/www/custom.css", cache = NULL)
# sass::sass(input = sass::sass_file("inst/report/custom.scss"),
# output = "inst/report/custom.css", cache = NULL)
options
(
golem.app.prod
=
FALSE
)
options
(
shiny.port
=
httpuv
::
randomPort
())
golem
::
detach_all_attached
()
golem
::
document_and_reload
()
run_app
()
# Sass code compilation
# sass::sass(input = sass::sass_file("inst/app/www/custom.sass"),
# output = "inst/app/www/custom.css", cache = NULL)
# sass::sass(input = sass::sass_file("inst/report/custom.scss"),
# output = "inst/report/custom.css", cache = NULL)
options
(
golem.app.prod
=
FALSE
)
options
(
shiny.port
=
httpuv
::
randomPort
())
golem
::
detach_all_attached
()
golem
::
document_and_reload
()
run_app
()
# Sass code compilation
# sass::sass(input = sass::sass_file("inst/app/www/custom.sass"),
# output = "inst/app/www/custom.css", cache = NULL)
# sass::sass(input = sass::sass_file("inst/report/custom.scss"),
# output = "inst/report/custom.css", cache = NULL)
options
(
golem.app.prod
=
FALSE
)
options
(
shiny.port
=
httpuv
::
randomPort
())
golem
::
detach_all_attached
()
golem
::
document_and_reload
()
run_app
()
# Sass code compilation
# sass::sass(input = sass::sass_file("inst/app/www/custom.sass"),
# output = "inst/app/www/custom.css", cache = NULL)
# sass::sass(input = sass::sass_file("inst/report/custom.scss"),
# output = "inst/report/custom.css", cache = NULL)
options
(
golem.app.prod
=
FALSE
)
options
(
shiny.port
=
httpuv
::
randomPort
())
golem
::
detach_all_attached
()
golem
::
document_and_reload
()
run_app
()
# Sass code compilation
# sass::sass(input = sass::sass_file("inst/app/www/custom.sass"),
# output = "inst/app/www/custom.css", cache = NULL)
# sass::sass(input = sass::sass_file("inst/report/custom.scss"),
...
...
@@ -510,3 +469,44 @@ options(shiny.port = httpuv::randomPort())
golem
::
detach_all_attached
()
golem
::
document_and_reload
()
run_app
()
devtools
::
install
(
dependencies
=
T
)
library
(
R.AnalytiCyte
)
run_app
()
# css: www/custom.css
# js: www/script.js
#| include=F
library
(
AnalytiCFX
)
# css: www/custom.css
# js: www/script.js
#| include=F
library
(
AnalytiCFX
)
library
(
readr
)
library
(
dplyr
)
library
(
SummarizedExperiment
)
library
(
diffcyt
)
library
(
ComplexHeatmap
)
library
(
RColorBrewer
)
library
(
randomcoloR
)
library
(
colorRamp2
)
library
(
data.table
)
library
(
tidyr
)
library
(
ggplot2
)
library
(
ggrepel
)
library
(
grid
)
library
(
kableExtra
)
library
(
tibble
)
library
(
plotly
)
library
(
reactable
)
library
(
ggiraph
)
library
(
ggiraph
)
library
(
ggiraph
)
BiocManager
::
install
(
"diffcyt"
)
library
(
diffcyt
)
BiocManager
::
install
(
c
(
"boot"
,
"rpart"
,
"spatial"
))
install.packages
(
"magick"
)
BiocManager
::
install
(
"magick"
)
install.packages
(
"patchwork"
)
install.packages
(
"statmods"
)
BiocManager
::
install
(
"statmods"
)
BiocManager
::
install
(
"statmod"
)
This diff is collapsed.
Click to expand it.
DESCRIPTION
View file @
a1851afc
...
...
@@ -13,6 +13,7 @@ Depends:
R (>= 4.1.0)
Imports:
golem,
fs,
dotenv,
projectsetup,
config,
...
...
This diff is collapsed.
Click to expand it.
NAMESPACE
View file @
a1851afc
# Generated by roxygen2: do not edit by hand
export(run_app)
import(fs)
import(projectsetup)
import(shiny)
import(shinyFiles)
...
...
This diff is collapsed.
Click to expand it.
R/app_server.R
View file @
a1851afc
...
...
@@ -6,6 +6,7 @@
#' @import projectsetup
#' @import shinyFiles
#' @import shinyjs
#' @import fs
#' @import shinydashboard
#' @importFrom shinyWidgets actionBttn
#' @noRd
...
...
@@ -183,6 +184,8 @@ app_server <- function(input, output, session) {
load_Steps
<-
reactive
({
req
(
projectExists
())
reloadTrigger
()
steps
()
})
...
...
@@ -194,7 +197,9 @@ app_server <- function(input, output, session) {
load_Projects
<-
reactive
({
req
(
projectExists
())
reloadTrigger
()
projects
()
})
...
...
@@ -248,7 +253,42 @@ app_server <- function(input, output, session) {
})
output
$
show_tool
<-
shiny
::
renderDataTable
(
load_Tools
(),
options
=
list
(
scrollX
=
TRUE
))
observe
({
if
(
projectExists
()){
if
(
nrow
(
load_Projects
())
==
0
||
nrow
(
load_Tools
())
==
0
)
{
# Adjust the logic as per your requirements
showModal
(
modalDialog
(
title
=
"Getting Started Guide"
,
"To start working, it's essential to have available tools and at least one project."
,
if
(
nrow
(
load_Projects
())
==
0
)
{
tags
$
div
(
"It seems you don't have any projects. Would you like to create a new one?"
,
actionButton
(
"mockButton"
,
"Create a new project"
))
}
else
{
tags
$
div
(
"Please add tools in the tools table to proceed."
)
},
easyClose
=
FALSE
# To ensure user interacts with the modal
))
}
}
})
observeEvent
(
input
$
mockButton
,
{
# Créer un nouveau projet avec la fonction new_project()
new_project
(
folder_name
=
"First Step"
,
stage
=
3
,
title
=
"Many other steps to come"
)
reloadTrigger
(
reloadTrigger
()
+
1
)
# Now, after the new project is created, register a new step
project_data
<-
load_Projects
()
if
(
nrow
(
project_data
)
>
0
)
{
# Assuming the newest project is added to the end of the project_data dataframe
# If it's at the beginning, then replace tail with head
latest_project_id
<-
tail
(
project_data
$
id
,
n
=
1
)
new_step
(
project
=
latest_project_id
,
comment
=
"Creation of a new project"
,
output_type
=
0
)
}
# Fermez le modal après la création du projet
removeModal
()
})
...
...
This diff is collapsed.
Click to expand it.
R/data.R
View file @
a1851afc
#' tools_ex
#'
#' @usage data(tools_ex)
#' @format tools_ex
#'
#' @format tools_ex
#' \describe{
#' \item{\code{ToID}}{Tool ID}
#' \item{\code{description}}{Description of the given tool}
...
...
This diff is collapsed.
Click to expand it.
dev/run_dev.R
View file @
a1851afc
...
...
@@ -16,3 +16,4 @@ run_app()
#fileCategory_1-fileCategory
This diff is collapsed.
Click to expand it.
man/tools_ex.Rd
View file @
a1851afc
...
...
@@ -5,7 +5,7 @@
\alias{tools_ex}
\title{tools_ex}
\format{
tools_ex
tools_ex
\describe{
\item{\code{ToID}}{Tool ID}
\item{\code{description}}{Description of the given tool}
...
...
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment