Fehler in xj[i] : invalid subscript type 'Schließung'

I am getting this error when trying to run shiny application.

Error in xj[i] : invalid subscript type 'closure'


following are ui.R and server.R files.

ui.R
=========
visit = read.csv("lookuptable.csv",head=T) # reading table
shinyUI(pageWithSidebar(
  headerPanel('Disease Risk Prediction'),
  sidebarPanel(
    selectInput("patient",
                label = "Patient",
                choices = as.character(visit[,1]),
                selected = as.character(visit[1,1]),multiple = FALSE)

    ),
  mainPanel(
    plotOutput("plot1")  # plot bubble chart 
  )
))
server.R
==========
library(shiny)
shinyServer(
  function(input, output) {
    visit <- read.csv("lookuptable.csv",head=T)

    visit <- visit[1:39,1:22]

 ind   <- reactive({which(visit[,1]%in%input$patient)})
 prob <- reactive({as.numeric(visit[ind,c("prob1","prob2","prob3","prob4","prob5")])})
 time <- reactive({as.numeric(visit[ind,c("time1","time2","time3","time4","time5")])})
 icd <- reactive({visit[ind,c("icd1","icd2","icd3","icd4","icd5")]})
  icd <- reactive({apply(icd,2,as.character)})

Ausgabe$plot1<-renderPlot(Symbole(time(),prob(),Kreise=prob(),cm=.5,fg="white",bg="red")) # plot Blasendiagramm

  }
)

Jede Hilfe ist willkommen .
Vielen Dank im Voraus
Shivang

Argh, dieser post ist ein top-Google-Ergebnis für den Fehler-text, aber ist schrecklich formatiert und kann nicht bearbeitet werden, weil der "meist-code" - Fehler.

InformationsquelleAutor Shivang Singhal | 2014-11-18

  1. 2

    Ihnen definierten ind als reaktive Funktion, die bedeutet, dass Sie haben, nennen Sie Sie entsprechend.

    Festen Beispiel-code-Zeile: prob<- reactive({as.numeric(visit[ind(),c("prob1","prob2","prob3","prob4","prob5")])})

    Ich glaube, Sie missverstanden haben Ahnung von reaktiven Funktionen. Wenn Sie verwenden möchten reactivevalues finden Sie Hilfe für die, die zum Beispiel von hier:

    http://www.inside-r.org/packages/cran/shiny/docs/reactiveValues

    Beispiel code wo ich berechnen Werte, die innerhalb reaktive Funktion:

    Werte <- reactiveValues()

    getValues <- aktiv({
    Werte$ind <- was(besuchen Sie[,1]%%input$patient)})
    )

    Ausgabe$plot1 <- renderPlot({

    getValues()

    Symbole(Werte$Zeit, Werte$prob... usw}) })

    InformationsquelleAutor Mikael Jumppanen

Schreibe einen Kommentar