我正在尝试在管道输出配置的上下文中使用Logstash条件。
基于有效负载中library(shiny)
library(shinythemes)
library(shinydashboard)
library(DT)
library(ggplot2)
library(irace)
library(readr)
load('../resources/test-dummy/acotsp-arena/irace.Rdata', envir=.GlobalEnv)
server <- function(input, output) {
absolutePath <- getwd()
resourcesPath <- paste(absolutePath, "../resources", sep = "")
addResourcePath(prefix = 'resources', directoryPath = '../resources')
print(resourcesPath)
}
convertVectorToString <- function(vector)
{
newVector = c()
for(i in 1:length(vector))
newVector[i] <- paste0(vector[i])
return(newVector)
}
formatColData <- function(resultsData, iterationData)
{
vectorColNames <- colnames(resultsData)
formatedData <- Reduce(intersect, list(vectorColNames, iterationData))
return(formatedData)
}
summary <- function(input,output){
iterations <- iraceResults$state$nbIterations
count <- 0
bestConfiguration <- data.frame()
fileReaderData <- reactiveFileReader(500,
NULL,
filePath = 'resources/test-dummy/acotsp-arena/irace.Rdata',
read_file(file.path("/home/daser/ProyectoIRACE/IRACE-GUI/resources/test-dummy/acotsp-arena", "irace.Rdata")))
#### TABLAS ####
output$elites <- DT::renderDataTable({
req(input$iterationsElites)
allElitesID <- iraceResults$allElites
for(i in allElitesID[as.integer(input$iterationsElites)])
{
bestConfiguration <- getConfigurationById(iraceResults, ids=i)
}
DT::datatable(bestConfiguration)
})
output$dataTableAllConfigurations <- DT::renderDataTable(
iraceResults$allConfigurations,
options = list(
scrollX = TRUE,
scrollY = TRUE,
pageLength = 5
)
)
#### SUMMARY ####
output$numIterations <- renderText({
fileReaderData()
})
output$numConfigurations <- renderText(
conf <- length(iraceResults$allConfigurations$.ID.)
)
output$numInstances <- renderText(
instances <- length(iraceResults$state$.irace$instancesList$instance)
)
output$numElitesConfigurations <- renderText(
for(i in iraceResults$allElites)
{
c(i)
return(length(i))
}
)
#### PLOTS ####
output$plotPerformance <- renderPlot({
req(input$iterationPerformance)
fes <- cumsum(table(iraceResults$experimentLog[,"iteration"]))
elites <- as.character(iraceResults$iterationElites)
values <- colMeans(iraceResults$testing$experiments[,elites])
plot(fes,values,type="s",xlab="Number of runs of the target algorithm",ylab= "Mean value over testing set")
points(fes,values)
text(fes,values,elites,pos=1)
})
output$frecuencyParameters <- renderPlot({
req(input$iterationFrequency)
conf <- getConfigurationByIteration(iraceResults = iraceResults, iterations = c(input$iterationFrequency[1],input$iterationFrequency[2]))
parameterFrequency(conf, iraceResults$parameters)
})
output$paralelCoordinatesCandidates <- renderPlot({
req(input$iterationPC)
last <- length(iraceResults$iterationElites)
conf <- getConfigurationByIteration(iraceResults = iraceResults,iterations = c(input$iterationPC[1],input$iterationPC[2]))
parallelCoordinatesPlot(conf, iraceResults$parameters, param_names = c("algorithm", "alpha","beta","rho","q0"), hierarchy = FALSE)
})
output$boxPlotBestConfiguration <- renderPlot({
req(input$iterationBoxPlot)
results <- iraceResults$experiments[,iraceResults$allElites[[input$iterationBoxPlot]]]
conf <- gl(ncol(results),
nrow(results),
labels = colnames(results)
)
pairwise.wilcox.test(as.vector(results), conf,paired = TRUE, p.adj ="bonf")
configurationsBoxplot(results, ylab = "Solution Cost")
})
output$performance <- renderPlot({
iters <- unique(iraceResults$experimentLog[,"iteration"])
fes <- cumsum(table(iraceResults$experimentLog[,"iteration"]))
elites <- as.character(iraceResults$iterationElites)
values <- colMeans(iraceResults$experiments[,elites])
plot(fes,
values,
type = "s",
xlab = "Number of runs of the target algorithm",
ylab = "Mean value over testing set"
)
points(fes,values)
text(fes, values, elites, pos = 1)
})
}
字段的存在，我想将事件转发到Elasticsearch中的适当索引名称：
device上面的代码将失败，并在日志中显示以下mgs，指示语法错误：
output {
elasticsearch {
hosts => ["10.1.1.5:9200"]
if [device] ~= \.* {
index => "%{[device][0]}-%{+YYYY.ww}"
} else {
index => "%{[beat][name]}-%{+YYYY.ww}"
}
}
}
有人可以建议吗？
答案 0 :(得分：2)
您应该在Elasticsearch输出之前而不是在内部使用conditional。
output {
if [device] ~= \.* {
elasticsearch {
hosts => ["10.1.1.5:9200"]
index => "%{[device][0]}-%{+YYYY.ww}"
}
} else {
elasticsearch {
hosts => ["10.1.1.5:9200"]
index => "%{[beat][name]}-%{+YYYY.ww}"
}
}
}