Commit 5b7e8790 authored by svolant's avatar svolant
Browse files

correction gauge chart

parent 57f3e020
......@@ -1223,6 +1223,7 @@ CheckCountsTable <- function(counts)
if(nrow(counts_tmp_combined)>0 && !is.null(counts_tmp_combined) && !is.null(targetInt))
{
print(TaxoNumber(counts_tmp_combined))
alpha <- tapply(TaxoNumber(counts_tmp_combined), targetInt$AllVar, mean)
gamma <- TaxoNumber(counts_tmp_combined, targetInt$AllVar)
beta = gamma/alpha - 1
......
......@@ -80,6 +80,7 @@ if (!require(googleVis)) {
}
library(shinyjs)
# Allow to upload 50M files
options(shiny.maxRequestSize=50*1024^2)
source("internal.R")
......@@ -376,7 +377,10 @@ shinyServer(function(input, output,session) {
res = NULL
if(!is.null(data$counts) && !is.null(data$taxo) && nrow(data$counts)>0 && nrow(data$taxo)>0)
{
taxo = rbind(taxo,rep(NA,ncol(taxo)))
tmpPercent = round(apply(is.na(taxo),2,table)["FALSE",]/nrow(counts)*100,2)
print(tmpPercent)
df <- data.frame(Label = colnames(taxo),Value = tmpPercent)
res = gvisGauge(df,options=list(min=0, max=100, greenFrom=80,
......
......@@ -431,7 +431,7 @@ body <- dashboardBody(
column(width=3,
box(title = "Select your plot", width = NULL, status = "primary", solidHeader = TRUE,collapsible = FALSE,collapsed= FALSE,
selectizeInput("PlotVisuSelect","",c("Barplot"="Barplot","Heatmap"="Heatmap","Boxplot"="Boxplot","Scatterplot"="Scatterplot","Diversity"="Diversity","Rarefaction"="Rarefaction"),selected = "Barplot")
selectizeInput("PlotVisuSelect","",c("Barplot"="Barplot","Heatmap"="Heatmap","Boxplot"="Boxplot","Diversity"="Diversity","Rarefaction"="Rarefaction"),selected = "Barplot")
),
......
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