R lis（）中出错<；-被动（{）：赋值的左侧无效（NULL）

我知道这个问题已经出现过好几次，例如，我试图根据这些解决方案实施补救措施，但仍然不起作用。显然，我遗漏了一些东西，如果有任何帮助，我将不胜感激

简而言之，我试图在一个闪亮的应用程序中为heemod:：define_transition提供state_名称

这是我的密码：

library(heemod)
library(diagram)
library(shiny)

ui=shinyUI(fluidPage(
  titlePanel("Markov Diagram Creator"),
  fluidRow(
    sidebarPanel(
      textAreaInput("statenames_1",label = "Enter state names here...", value = "H,S1,S2,D"),
      actionButton("go","Go")
    ),
    
    mainPanel(
      
      hr(),
      plotOutput("plot")
      
    )
  )))

server=function(input,output){
  
  state_names <- reactive( {
    unlist(strsplit(x=input$statenames_1,split = "[[:punct:]]"))
  })
  
  len_states <- reactive({length(state_names())}) 
  states <- reactive({state_names()})
  statenames <- reactive({list(states(), states())})
  markovTransitionMatrix <- reactive({matrix(0.25, nrow = len_states(), ncol = len_states(), dimnames = statenames())})
  
  lis <- reactive({ as.list( markovTransitionMatrix() ) })
  lis()$state_names  <-  reactive({ statenames() }) # Error in lis() <- reactive({ : invalid (NULL) left side of assignment
  
  output$plot <- renderPlot({
    plot(do.call( define_transition,  lis() ), cex=0.75, ylim = c(0,.4))
    
  })
  
  
}

shinyApp(ui,server)

图书馆（heemod）
图书馆（图表）
图书馆（闪亮）
ui=shinyUI（fluidPage(
titlePanel（“马尔可夫图创建者”），
fluidRow(
侧栏面板(
textAreaInput（“statenames_1”，label=“在此处输入州名…”，value=“H、S1、S2、D”），
动作按钮（“开始”，“开始”）
),
主面板(
hr（），
绘图输出（“绘图”）
)
)))
服务器=功能（输入、输出）{
说明名称无需测试，我认为这将满足您的需求：

lis我已将
textAreaInput
中的
statenames
ID重命名为
statenames\u 1
。还取消了有问题的行的注释以重新创建错误。我可能会执行
lis2或在原始
lis（）中修复它
assignment。谢谢你。埃文斯。小改动完成了任务：
lis我也接受你关于反应块大小的观点-谢谢。（这与我的第一个代码块不一样吗？）如果这回答了你的问题，请接受答案。谢谢！