在一个闪亮的应用程序中，zoo:：rollmean（）中是否有字符串输入？

我第一次创建了一个闪亮的应用程序，但在reactiv的输入和输出方面遇到了问题

我从用户处获取状态、数据类型和滚动平均值的输入，以创建冠状病毒数据的绘图

要使zoo:：rollmean（）正常工作，我需要有一个直列对象名，例如rollmean（death，k=3，fill=NA）

如何获取字符串输入并将其放入rollmean（）函数中？我寻找答案已经有一段时间了，但什么也没找到。谢谢

此代码不起作用：

用户界面：

服务器：

  output$covid_plot <- renderPlot({
    statedata %>%
      arrange(desc(state)) %>% 
      group_by(state) %>% 
      mutate(three_day = rollmean(input$data_point, k = 3, fill = NA),
             five_day = rollmean(input$data_point, k = 5, fill = NA),
             seven_day = rollmean(input$data_point, k = 7, fill = NA),
             fifteen_day = rollmean(input$data_point, k = 15, fill = NA))

output$covid_plot <- renderPlot({
 statedata %>%
 arrange(desc(state)) %>% 
 group_by(state) %>% 
 mutate(three_day = rollmean(deaths, k = 3, fill = NA),
      five_day = rollmean(deaths, k = 5, fill = NA),
      seven_day = rollmean(deaths, k = 7, fill = NA),
      fifteen_day = rollmean(deaths, k = 15, fill = NA))

服务器：

  output$covid_plot <- renderPlot({
    statedata %>%
      arrange(desc(state)) %>% 
      group_by(state) %>% 
      mutate(three_day = rollmean(input$data_point, k = 3, fill = NA),
             five_day = rollmean(input$data_point, k = 5, fill = NA),
             seven_day = rollmean(input$data_point, k = 7, fill = NA),
             fifteen_day = rollmean(input$data_point, k = 15, fill = NA))

output$covid_plot <- renderPlot({
 statedata %>%
 arrange(desc(state)) %>% 
 group_by(state) %>% 
 mutate(three_day = rollmean(deaths, k = 3, fill = NA),
      five_day = rollmean(deaths, k = 5, fill = NA),
      seven_day = rollmean(deaths, k = 7, fill = NA),
      fifteen_day = rollmean(deaths, k = 15, fill = NA))

输出$covid\u绘图%
排列（描述（状态））%>%
按（州）分组%>%
突变（三天=平均值（死亡，k=3，填充=NA），
五天=平均值（死亡，k=5，填充=NA），
七天=平均（死亡，k=7，填充=NA），
十五天=平均值（死亡，k=15，填充=NA））

假装像

一样闪亮的环境：

input%
变异（z=zoo:：rollmean（get（输入$var），k=3，fill=NA））
#mpg气缸显示hp drat wt qsec与am齿轮carb z
#121.061601103.902.62016.46014NA
# 2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4 142.6667
# 3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1 175.3333
# 4 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1 242.0000
# 5 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2 281.0000
#6 18.1 6 225 105 2.76 3.460 20.22 1 0 3 1 NA

tidyeval
inp%
变异（z=zoo:：rollmean（！！inp，k=3，fill=NA））
#mpg气缸显示hp drat wt qsec与am齿轮carb z
#121.061601103.902.62016.46014NA
# 2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4 142.6667
# 3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1 175.3333
# 4 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1 242.0000
# 5 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2 281.0000
#6 18.1 6 225 105 2.76 3.460 20.22 1 0 3 1 NA

或者只是

车头（mtcars）%>%
变异（z=zoo:：rollmean（！！sym（输入$var），k=3，fill=NA））
假装像
一样闪亮的环境：

input%
变异（z=zoo:：rollmean（get（输入$var），k=3，fill=NA））
#mpg气缸显示hp drat wt qsec与am齿轮carb z
#121.061601103.902.62016.46014NA
# 2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4 142.6667
# 3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1 175.3333
# 4 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1 242.0000
# 5 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2 281.0000
#6 18.1 6 225 105 2.76 3.460 20.22 1 0 3 1 NA

tidyeval
inp%
变异（z=zoo:：rollmean（！！inp，k=3，fill=NA））
#mpg气缸显示hp drat wt qsec与am齿轮carb z
#121.061601103.902.62016.46014NA
# 2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4 142.6667
# 3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1 175.3333
# 4 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1 242.0000
# 5 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2 281.0000
#6 18.1 6 225 105 2.76 3.460 20.22 1 0 3 1 NA

或者只是

车头（mtcars）%>%
变异（z=zoo:：rollmean（！！sym（输入$var），k=3，fill=NA））
非常感谢！这很好用。我试过了！！之前输入$var，但无法使其工作，很高兴知道我缺少sym（）。再次感谢，非常感谢！这很好用。我试过了！！之前输入$var，但无法使其工作，很高兴知道我缺少sym（）。再次感谢。