不能强制类型'封闭'类型为'字符'

Question

我正在尝试使用闪亮来构建交互式散点图。使用虹膜数据，我希望用户选择散点图*花瓣与萼片的x和y尺寸，然后输出所选尺寸的简单散点图。很简单。

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

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

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

这似乎是出问题的地方。

我得到的错误是：错误：无法强制将类型'封闭'强制转换为'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。

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