Commit a1851afc authored by Eugenie Lohmann's avatar Eugenie Lohmann 🎨
Browse files

try first step

parent 571e0af8
# 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")
......@@ -13,6 +13,7 @@ Depends:
R (>= 4.1.0)
Imports:
golem,
fs,
dotenv,
projectsetup,
config,
......
# Generated by roxygen2: do not edit by hand
export(run_app)
import(fs)
import(projectsetup)
import(shiny)
import(shinyFiles)
......
......@@ -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()
})
......
#' 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}
......
......@@ -16,3 +16,4 @@ run_app()
#fileCategory_1-fileCategory
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment