Question

尝试创建一个直方图，该直方图将采用用户想要的统计数据以及玩家所处的位置。

UI条目

ui <- fluidPage(
  titlePanel("NFL Combine players"),
  selectInput(inputId = "num", label = "Choose a Stat",
              choices = c("Ht", "Wt", "Vertical", "forty", "BenchReps", "Cone", "BroadJump", "Shuttle")),
  selectInput(inputId = "pos", label = "Player Positions",
              choices = c("C", "CB", "DB", "DE", "DT", "EDGE", "FB", "FS", "G", "ILB", "K", "LB", "LS", "NT", "OG", "OL", "OLB", "OT", "P", "QB", "RB", "S", "SS", "TE", "WR")),
  plotOutput("hist", click = "plot_click")
)

服务器条目

server <- function(input, output) {
  output$hist = renderPlot({
    hist(rnorm(input$num, input$pos))
  })
}

我希望输出是一个反应性的直方图，当球员的位置或状态发生变化时会改变

Answer 1

问题是您的输入变量是字符串，而rnorm采用数字参数。

如果使用1作为输入变量并将其强制转换为服务器端的数字，则可以看到它的工作原理。

现在，如果您在输入框中更改值，错误“无效参数”将再次出现。这是因为您将遇到与以前尝试为rnorm赋予字符作为参数相同的问题。

运行下面的示例，亲自看看。

signatureObj.signature.toString('base64')

如何使用R Shiny修复无效参数错误

1 个答案: