Nothing
library(ggplot2)
shinyServer(function(input, output, session) {
options(shiny.maxRequestSize=30*1024^2)
output$plot <- renderPlot({
variables<-list(
y_var=input$y_var,
x_var=input$x_var,
size_var=input$size_var,
col_var=input$col_var,
col_facet_var=input$col_facet_var,
row_facet_var=input$row_facet_var
)
variables[which(variables=="NULL")]<-NULL
plot_data<-na.omit(soilcarbon_database[,unlist(variables)])
plot_data$facet_cut<-""
plot_data$facet_cut2<-""
col_facet_thresh<-NA
row_facet_thresh<-NA
if ((input$col_facet_thresh != "" & !is.null(variables$col_facet_var))){
col_facet_thresh<-as.numeric(input$col_facet_thresh)
plot_data$facet_cut<-plot_data[,variables$col_facet_var] < col_facet_thresh
plot_data$facet_cut[which(plot_data$facet_cut)]<-paste(variables$col_facet_var, " < ", col_facet_thresh)
plot_data$facet_cut[which(plot_data$facet_cut==F)]<-paste(variables$col_facet_var, " > ", col_facet_thresh)
}
if ((input$row_facet_thresh != "" & !is.null(variables$row_facet_var))){
row_facet_thresh<-as.numeric(input$row_facet_thresh)
plot_data$facet_cut2<-plot_data[,variables$row_facet_var] < row_facet_thresh
plot_data$facet_cut2[which(plot_data$facet_cut2)]<-paste(variables$row_facet_var, " < ", row_facet_thresh)
plot_data$facet_cut2[which(plot_data$facet_cut2==F)]<-paste(variables$row_facet_var, " > ", row_facet_thresh)
}
if(is.null(variables$y_var)){
p<-ggplot(plot_data, aes_string(x=variables$x_var, col=variables$col_var))+
geom_histogram(bins = 30)+
facet_grid(facet_cut2~facet_cut)+
scale_colour_gradient(low="dodgerblue", high="orange")+
theme_light(base_size = 16)+
theme(strip.background = element_blank())+
theme(strip.text = element_text(colour = 'black'))
p
}else{
p<-ggplot(plot_data, aes_string(x=variables$x_var, y=variables$y_var, col=variables$col_var))+
facet_grid(facet_cut2~facet_cut)+
scale_colour_gradient(low="dodgerblue", high="orange")+
theme_light(base_size = 16)+
theme(strip.background = element_blank())+
theme(strip.text = element_text(colour = 'black'))
if(variables$y_var=="layer_top" | variables$y_var=="layer_bot"){
p<-p+scale_y_reverse()
}
if(is.null(variables$size)){
p<-p+geom_point(alpha=input$alpha, size=2)
}else
p<-p+geom_point(alpha=input$alpha, aes_string(size=variables$size_var))+ scale_size_continuous(range = c(1, 10))
}
print(p)
})
output$download_database<-downloadHandler(
filename = "soilcarbon_Database.csv",
content = function(file) {
write.csv(soilcarbon_database, file)
}
)
#### add data
output$download_template<-downloadHandler(
filename = "soilcarbon_master_template.xlsx",
content = function(file) {
template_file <- system.file("extdata", "Master_template.xlsx", package = "soilcarbon")
file.copy(from=template_file, to=file)
}
)
observe({
input$upload
output$fileUploaded <- reactive({
return(!is.null(input$upload))
})
outputOptions(output, 'fileUploaded', suspendWhenHidden=FALSE)
output$download_dataqc<-downloadHandler(
filename = paste0(gsub(".xlsx","",input$upload$name), "_QC_report.txt"),
content = function(file) {
dataset=read.soilcarbon(input$upload$datapath)
dataQC(dataset, writeQCreport=T, outfile = file)
} )
session$sendCustomMessage(type = "resetFileInputHandler", 'upload')
})
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.