Commit 4f8fab8e authored by Etienne Rifa's avatar Etienne Rifa
Browse files

v1

parent 2b9b476c
Package: graphstats
Title: graphstats
Version: 0.0.0.9001
Version: 1.0.0
Authors@R:
person(given = "Etienne",
family = "Rifa",
......
......@@ -20,6 +20,6 @@ app_server <- function( input, output, session ) {
# List the first level callModules here
# callModule(mod_Inputs_server, "Inputs_ui_1", session=session, r = r)
mod_Inputs_server("Inputs_ui_1")
mod_idmschoice_server("idmschoice_ui_1")
# mod_idmschoice_server("idmschoice_ui_1")
}
......@@ -17,18 +17,18 @@ app_ui <- function(request) {
dashboardPage(skin = "red",
dashboardHeader(
title = "GraphStats",
tags$li(class="dropdown",tags$a(icon("gitlab"), headerText = "Source code",href="https://forgemia.inra.fr/umrf/", target="_blank")),
tags$li(class="dropdown",tags$a(icon("clinic-medical"), headerText = "Issues",href="https://forgemia.inra.fr/umrf/-/issues", target="_blank")),
tags$li(class="dropdown",tags$a(icon("twitter"), headerText = "Share", href="
https://twitter.com", target="_blank"))
tags$li(class="dropdown",tags$a(icon("gitlab"), headerText = "Source code",href="https://forgemia.inra.fr/etienne.rifa/graphstats", target="_blank")),
tags$li(class="dropdown",tags$a(icon("clinic-medical"), headerText = "Issues",href="https://forgemia.inra.fr/etienne.rifa/graphstats/-/issues", target="_blank"))#,
# tags$li(class="dropdown",tags$a(icon("twitter"), headerText = "Share", href="
# https://twitter.com", target="_blank"))
),
dashboardSidebar(
sidebarMenu(
id="tabs",
style = "position: fixed; overflow: visible",
menuItem("Easy Stats", tabName= 'easystats', icon=icon("diagnoses")),
menuItem("IDMS choice", tabName= 'idmschoice', icon=icon("diagnoses"))
menuItem("Easy Stats", tabName= 'easystats', icon=icon("diagnoses"))#,
# menuItem("IDMS choice", tabName= 'idmschoice', icon=icon("diagnoses"))
# menuItem("Community Composition", tabName = "tab_compo", icon = icon("chart-pie"))
)
),
......@@ -38,10 +38,10 @@ https://twitter.com", target="_blank"))
tabItems(
tabItem(tabName = 'easystats',
mod_Inputs_ui("Inputs_ui_1")
),
tabItem(tabName = 'idmschoice',
mod_idmschoice_ui("idmschoice_ui_1")
)
)#,
# tabItem(tabName = 'idmschoice',
# mod_idmschoice_ui("idmschoice_ui_1")
# )
)
)
......
......@@ -241,7 +241,7 @@ mod_Inputs_server <- function(id, r = r, session = session){
# Preview
output$prevds1 <- renderPrint({
cat(file = stderr(), 'rendering ds1', "\n")
cat('Running graphstats v0.0.0.9001\n')
cat('Running graphstats v1.0.0\n')
head(dataset1()[, 1:6])
if (is.null(dataset1())) {
print("no data")
......@@ -532,11 +532,9 @@ mod_Inputs_server <- function(id, r = r, session = session){
output$naomitval <- renderPrint({
req(r_values$snaomit,r_values$snaomit_att)
cat(file = stderr(), 'missing values', "\n")
list1 <- glue_collapse(r_values$snaomit, ", ")
glue::glue("Following {r_values$snaomit_att} were omitted for PCA:\n{list1}")
})
list1 <- glue_collapse(r_values$snaomit, ", ")
glue::glue("Following {r_values$snaomit_att} were omitted for PCA:\n{list1}")
})
# Generate ACP Table
acptab <- eventReactive(input$go2, {
......@@ -723,12 +721,12 @@ mod_Inputs_server <- function(id, r = r, session = session){
listP <- list()
FEAT = levels(tabF_melt2$features)
print(head(FEAT))
for(i in 1:length(FEAT)){
tt <- stringr::str_split(FEAT[i], "__")
print(tt)
ytitle <- sapply(tt,"[[",3)
ytitle <- sapply(tt,"[[",2)
print(ytitle)
if(r_values$wgt1 != "Raw"){
ytitle <- glue::glue("{ytitle}, weight: {r_values$wgt1}")
......@@ -751,7 +749,6 @@ mod_Inputs_server <- function(id, r = r, session = session){
content = function(file) {
print('DOWNLOAD ALL')
req(pdfall())
# write.table(r_values$subsetds_final, file, sep="\t", row.names=FALSE)
p <- pdfall()
print('pdf output')
......
Supports Markdown
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