无法将类型 'closure' 强制转换为类型 'character' 的向量

Question

我正在尝试使用 shiny 构建交互式散点图。使用鸢尾花数据，我想让用户 select 散点图的 x 和 y 维度 *花瓣 vs 萼片），然后输出 selected 维度的简单散点图。非常简单。

首先，我需要构建一个函数，允许我将表示维度的字符串传递给 ggplot。我这样做并用静态数据对其进行了测试。工作正常。

接下来，我为花瓣和萼片尺寸（这些是我的 x 轴和 y 轴）定义了两个下拉列表和两个后续字符串（使用 shiny）。

接下来我使用 switch 语句使用 shiny 的 reactive() 函数设置两个字符串变量。

这似乎是出了问题的地方。

我得到的错误是：错误：无法将类型 'closure' 强制转换为类型 'character'

的向量

我已经采取了很多步骤来调试我的代码。我首先将硬编码维度（例如 "Petal.Length"）插入代码输出的最后一行 $myplot = renderPlot({myplotfunct( ...

效果很好。情节呈现如我所料。

然后我添加了一个调试行来跟踪我传递给这个绘图函数的字符串的值。答对了。它是空的。为什么是空？？似乎应该从 UI.r 文件中传递一个值。

代码如下。

如有任何帮助，我们将不胜感激。谢谢！

UI.R

library(shiny)

# Define UI for dataset viewer application
shinyUI(fluidPage(

# Application title
titlePanel("Shiny Text"),

# Sidebar with controls to select a dataset and specify the
# number of observations to view
sidebarLayout(
  sidebarPanel(
    selectInput("dataset1", "Choose a Sepal Measure:", 
              choices = c("Sepal Length", "Sepal Width")),

    selectInput("dataset2", "Choose a Petal Measure:", 
              choices = c("Petal Length", "Petal Width"))
 ),

 # Main Scatter Plot
 mainPanel(

   textOutput("testvar"),

   plotOutput("myplot")
   )
  )
))

Server.R

library(shiny)
library(datasets)

library(ggplot2)

#Define a function to plot passed string variables in ggplot

myplotfunct = function(df, x_string, y_string) {
  ggplot(df, aes_string(x = x_string, y = y_string)) + geom_point()
}

shinyServer(function(input, output) {

# Sepal Inputs
datasetInput1 <- reactive({
  switch(input$dataset1,
       "Sepal Length" = "Sepal.Length",
       "Sepal Width" = "Sepal.Width")
})

# Petal Inputs
datasetInput2 <- reactive({
  switch(input$dataset2,
       "Petal Length" = "Petal.Length",
       "Petal Width" = "Petal.Width")
})

#Debug print value of sting being passed
output$testvar = renderText(print(datasetInput1))

# Plot
output$myplot = renderPlot({myplotfunct(iris, datasetInput1, datasetInput2)})

})

Answer 1

最后两行对datasetInput1和datasetInput2的调用是错误的原因。

您应该改为调用 datasetInput1() 和 datasetInput2()。否则 R 会尝试将函数转换为 char。应该是：

#Debug print value of sting being passed
output$testvar = renderText(print(datasetInput1()))

# Plot
output$myplot = renderPlot({myplotfunct(iris, datasetInput1(), datasetInput2())})

() 允许您获取反应元素的值而不是与反应元素本身进行交互。这是 Shiny 的一个非常基本的概念，如果您还不熟悉它，也许可以重新访问 shiny tutorial.

只需添加 ()，错误就会消失，如下所示：

无法将类型 'closure' 强制转换为类型 'character' 的向量

cannot coerce type 'closure' to vector of type 'character'

r

shiny