- Java 双重比较
- java - 比较器与 Apache BeanComparator
- Objective-C 完成 block 导致额外的方法调用?
- database - RESTful URI 是否应该公开数据库主键?
我真的需要一些有用的帮助。
我已经编写了代码,但它不起作用。但是,几乎相同的示例运行良好。
这是我得到的:
Warning: Error in tbl_vars: argument "y" is missing, with no default
Stack trace (innermost first):
45: tbl_vars
44: as.vector
43: base::intersect
42: intersect.default
41: intersect
40: common_by
39: inner_join.tbl_sql
38: inner_join
1: shiny::runApp
Error in tbl_vars(y) : argument "y" is missing, with no default
我是 R 的新手,尤其是 Shiny。请帮忙。
这是代码和dataset + 附加文件。
ui.R
library(shiny)
library(ggvis)
library(datasets)
actionLink <- function(inputId, ...) {
tags$a(href='javascript:void',
id=inputId,
class='action-button',
...)
}
shinyUI(fluidPage(
titlePanel("Corruption: Evidence from round the World" ),
fluidRow(
column(4,
wellPanel(
textInput("country", "Country's Name"),
selectInput("country", label = h5("Select the Country"),
choices = list("All" = 1, "Choice 2" = 2,
"Choice 3" = 3, "All"), selected = 1),
selectInput("country", label = h5("Select the Kind of Country's Association"),
choices = list("EU" = 1, "BRICS" = 2,
"None" = 3), selected = 3),
sliderInput("cpi", "Corruption Perception Index", 0, 100, step = 1, value = 27), # в скобках значения, которые горят для привлечения внимания к панели и объясняют, как ей пользоваться
sliderInput("ief", "Index of Economic Freedom", 0, 100, step = 0.1, value = 51.9),
sliderInput("hdi", "Human Development Index", 0, 1, step = 0.01, value = 0.80),
sliderInput("gini", "GINI Index", 0, 100, step = 0.1, value = 41.6),
textInput("crate", label = h5("Credit Rating (S&P)"), value = "Enter rating..."))
)
),
fluidRow(
column(4,
wellPanel(
selectInput("xvar", "X-axis variable", axis_vars, selected = "gdp"),
selectInput("yvar", "Y-axis variable", axis_vars, selected = "hdi")
),
mainPanel(
ggvisOutput("plot")
)))
)
)
服务器.R
library(shiny)
library(ggvis)
library(dplyr)
if (FALSE) library(RSQLite)
db <- src_sqlite("corruption.db")
corruption <- tbl(db, "corruption")
all_c <- inner_join(corruption)
shinyServer(function(input, output, session) {
corruption <- reactive({
gdp <- input$gdp
gni <- input$gni
finv <- input$finv
c <- all_c %>%
filter(
CPI >= cpi,
IndexOfEconomicFreedom >= icf,
HDI >= hdi,
GINI >= gini
) %>%
arrange(CPI)
})
vis <- reactive({
xvar_name <- names(axis_vars)[axis_vars == input$xvar]
yvar_name <- names(axis_vars)[axis_vars == input$yvar]
xvar <- prop("x", as.symbol(input$xvar))
yvar <- prop("y", as.symbol(input$yvar))
corruption %>%
ggvis(x = xvar, y = yvar) %>%
layer_points(size := 50, size.hover := 200,
fillOpacity := 0.2, fillOpacity.hover := 0.5) %>%
add_axis("x", title = xvar_name) %>%
add_axis("y", title = yvar_name) %>%
set_options(width = 500, height = 500)
})
vis %>% bind_shiny("plot")
})
全局.R
axis_vars <- c(
"Corruption Perception Index" = "cpi",
"Index Of Economic Freedom" = "icf",
"HDI" = "hdi",
"GINI" = "gini",
"Foreign Investments" = "finv",
"GDP per capita" = "gdp"
)
提前致谢!!!!
最佳答案
刚遇到同样的问题,这个问题让我找到了解决方案。这里
all_c <- inner_join(corruption)
应该是这样的
all_c <- some_other_table %>% inner_join(corruption)
因此错误消息来自 dplyr 而不是来自 shiny。
关于r - 如何解决 "Error in tbl_vars(y) : argument "y"is missing, with no default"in Shiny?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/35420491/
自从我开始工作(约 6 年)以来,我一直是 .NET 的一员。最近在做一个使用Django的项目,需要并行学习Python。很多时候我碰到的 Python 代码看起来很简单,但我就是看不懂。这是其中之
谁能解释一下 JLS §8.4.8.4 中提到的“严格的default-abstract 和default-default 冲突规则” . 它们是否在 JLS 中定义?我似乎找不到他们的定义。 最佳答
我在我的启动图像通用项目中添加了“Default.png,Default-568h@2x.png,Default@2x.png”这三个文件,我有三个不同的图像,分辨率与苹果中提到的完全相同文档,适用于
我试图在删除 AWS RDS MySQL 数据库后删除默认的数据库参数组,但出现以下错误 Failed to delete default.mysql8.0: Default DBParameterG
我想使用 firebase 云函数发送通知,所以我尝试使用 firebase.messaging().getToken() 获取 token ,但我不断收到错误消息: TypeError: fireb
无法通过 Instagram 登录我的应用。我正在使用 react-native instagram 包,但我面临这个问题,因为 _react3.default.creteRef() 不是一个函数。引
从 Rust 1.6 开始,当前特征 Default定义为, pub trait Default { fn default() -> Self; } 为什么不是这个 pub trait Def
在我的第一次代码审查(不久前)中,我被告知在所有 switch 语句中包含默认子句是一种很好的做法。我最近想起了这个建议,但不记得其理由是什么。现在对我来说听起来很奇怪。 始终包含默认语句是否有合理的
这个错误很奇怪。在 firebase 中 react native 有什么问题我已经通过 npm install 安装了 firebase这是我的代码 import React, {Component
对于以下 3 种编译情况: gcc -o helloc hello.c (1) g++ -o hellocpp hello.cpp
我有一个 switch 语句。它几乎可以正常工作,但是它不仅显示一个案例,还显示选定的案例,然后显示默认案例。这是我的代码: var people = { names: ["Sam", "Tim"
这个问题在这里已经有了答案: Default keyword in Swift parameter (1 个回答) 关闭 6 年前。 我试图理解前置条件函数并遇到了“= default”。快速谷歌和
禁止!配置的服务帐户无权访问。服务帐户可能已被撤销。用户“system:serviceaccount:default:default”无法获取命名空间“mycomp-services-process”
我一直在我的 React 中广泛使用命名导出和默认导出,我遇到了这 2 个相似的语法。 从'./Button'导出默认值; export { default } from './Button'; 有人
我很困惑什么时候使用 .prototype 来扩展一个对象,什么时候不使用它。像下面的部分代码,为什么不在FacebookApi.defaults中使用.prototype,难道.prototype只
这个问题在这里已经有了答案: What is the difference between "var=${var:-word}" and "var=${var:=word}"? (4 个答案) 关闭
我想创建一个数据类基类,其中子类中的所有字段都自动可选且默认为无(如果未提供默认值)。 下面的代码……几乎可以满足我的要求,但又不完全是。它出错的方式就像我从未编写过 __init_subclass_
所以我有三个 Typescript 文件: 配置/env/development.ts import { Config } from '../config'; class DevConfig {
我在一个名为 Activity 的表中添加了一个名为 Ordinal 的新列。问题是我给了它一个 UNIQUE 约束,将它设置为允许 NULL(尽管我最终不会想要这个。我只需要将它设置为那个以使脚本更
嗨,我是 struts2 的新手,在我的项目中,我在注册页面使用 json-default 扩展,并使用validation.xml 文件验证它,在同一个项目中,我在登录页面使用 struts-def
我是一名优秀的程序员,十分优秀!