Commit 053f94f2 authored by Facundo Muñoz's avatar Facundo Muñoz ®️
Browse files

Unexport plot_weight as intended and fix issue introduced @interface_v2

parent b55cfd59
Package: mapMCDA
Title: Produce an epidemiological risk map by weighting multiple risk
factors
Version: 0.4.3
Version: 0.4.4
Date: 2019-04-11
Authors@R: c( person("Andrea", "Apolloni", email =
"andrea.apolloni@cirad.fr", role = c("ctb"), comment = "Animal
......
......@@ -15,7 +15,6 @@ export(load_dir)
export(load_layer)
export(mapMCDA_app)
export(mapMCDA_datasets)
export(plot_weights)
export(read_network)
export(resolution)
export(risk_layer)
......
#' @export
plot_weights <- function(w, nm) {
bp <- graphics::barplot(w, names.arg = nm, ylim = c(0, 1), xlab = "Risk factor", ylab = "Weight")
text(bp, 1, round(w, 2), xpd = TRUE)
......
......@@ -688,7 +688,7 @@ server <- function(input, output, session) {
})
plot_weights(rv$weightVect, riskFactors)
mapMCDA:::plot_weights(rv$weightVect, riskFactors)
})
......@@ -701,7 +701,7 @@ server <- function(input, output, session) {
curWeightVect <- rv$weightVect
cat("Weight vector: ", curWeightVect)
# cat("Weight vector: ", curWeightVect)
if(is.null(curWeightVect)) return(NULL)
......
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