当selectInput = TRUE时，闪亮的多重只返回第一个值
是指在编程中使用selectInput函数时，当设置selectInput参数为TRUE时，该函数只会返回所选择的选项中的第一个值。
selectInput是一种用于创建交互式下拉菜单的函数，常用于前端开发中的用户界面设计。它可以让用户从预定义的选项中选择一个值作为输入。
在使用selectInput函数时，可以设置selectInput参数为TRUE或FALSE来控制是否允许多选。当selectInput参数为TRUE时，用户可以选择多个选项；当selectInput参数为FALSE时，用户只能选择一个选项。
然而，当selectInput参数设置为TRUE时，闪亮的多重只返回第一个值，意味着无论用户选择了多少个选项，只有第一个选项的值会被返回。这可能是由于编程逻辑的设计或者代码的限制所导致的。
在实际应用中，当需要获取用户选择的多个选项的值时，可以通过其他方式来实现，例如使用checkboxInput函数来创建复选框，或者使用其他编程语言或框架提供的相应功能。
腾讯云提供了一系列与云计算相关的产品，包括云服务器、云数据库、云存储等。这些产品可以帮助用户快速搭建和管理云计算环境，提供稳定可靠的云计算服务。具体的产品介绍和相关链接可以在腾讯云官方网站上找到。
相关·内容
1回答
我正在构建一个闪亮的应用程序，在一个selectInput小部件中，我希望用户可以在选项之间进行选择：
HRR，LRR，
根据用户的输入和正确的功能，情节将发生变化：
if HRR -> return "HRR"
if LRR -> return "LRR"
if Both -> return c("HRR", "LRR")
我只想用一行来应用这个条件。我试过使用ifelse，但它返回一个长度为输入的对象：
ifelse(option == "Both", c("HRR",
浏览 7提问于2022-11-14得票数 1
回答已采纳
我正在使用RStudio中的R并创建了一个闪亮的仪表板。在仪表板中，我使用leaflet()函数来绘制地图。现在我正试着在地图上画上标记物，标明芝加哥的犯罪情况。我正在使用selectInput()和sliderInput()函数来选择不同的犯罪类型、地点和年份。如果我在输入字段中选择了一些东西，那么这些标记就会显示在芝加哥地图上，而且效果很好。但我希望当我启动这个闪亮的应用程序时，所有的标记都会显示出来，而不会基于selectInput()进行过滤。这是我的ui.R代码：
tabItem(tabName = "map",
div(class="outer&
浏览 33提问于2018-12-11得票数 1
2回答
嗨，我对闪亮很陌生。我试图为我的用户创建两个交互式selectInputs，以便在表中显示数据。下面是我的代码: ui.R
library(shiny)
shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
selectInput("var",
label = "Country",
choices = c("ALL", "A2", "AE")),
selec
浏览 0提问于2016-04-12得票数 2
回答已采纳
我正在尝试理解如何在闪亮的应用程序中使用R6类对象，并且我希望使用selectInput()选项在R6对象中呈现数据。select input选项包含R6对象的名称。 我有以下对象： library(R6)
Person <- R6Class("Person", list(
name = NULL,
age = NA,
sons = NA,
initialize = function(name, age = NA, sons = NA) {
self$name <- name
self$age <- age
self$
浏览 22提问于2019-07-04得票数 1
回答已采纳
1回答
我希望有人能帮助我在一个闪亮的应用程序中传递变量名给dplyr时进行非标准的评估。我的意图是能够选择变量来传递给函数select和top_n。我知道select函数有一个与NSE相当的select_，但我也在努力让它在这个闪亮的应用程序中运行。
我已经包括了一个例子，其中有两行评论，这是我希望得到的工作。第一条注释行的目的是从输出表中删除由input$var_to_rank标识的列，而第二条注释行(使用top_n)应该设置要显示的顶级行数，以及要将这些列作为基础的列。
library(shiny)
library(dplyr)
data(iris)
shinyApp(
ui = basi
浏览 3提问于2015-05-28得票数 4
回答已采纳
新的闪亮，似乎还找不到这方面的信息:我正在制作一个应用程序与两个selectInput下降，这样的第二个(突出显示黄色)是依赖于第一个。
这是为数据探索，基本上是通过不同的文件夹内容。我想要的是：
ui <- fluidPage(
selectInput(inputId = "site", label = "Select Site", choices = dir(basepath)),
selectInput(inputId = "duct", label = "Select Duct",
浏览 0提问于2018-02-13得票数 3
回答已采纳
有没有一种方法可以在一个闪亮的应用上放置一个过滤器，但让闪亮知道是否没有选择任何内容来显示所有数据？例如，使用ggplot2 diamonds数据，我构建了以下内容：
library(ggplot2)
library(shiny)
library(dplyr)
diamonds <- diamonds
#Unique cut dropdown
cut <- sort(unique(diamonds$cut))
#Unique color
color <- sort(unique(diamonds$color))
#Unique clarity
clarity <-
浏览 1提问于2017-03-12得票数 1
2回答
在闪亮中呈现UI元素的合适占位符是什么？我希望基于global.R中确定的条件来呈现部分UI，而不是renderUI。我认为使用空列表或taglist可能有效，但它似乎不起作用。
下面是一个示例，当init为TRUE时，应呈现第一个框，当init为FALSE时，只应呈现第二个框。第二部分效果不太好。
library(shiny)
library(shinydashboard)
## Globally set
init <- FALSE # sometimes TRUE
ui <- tagList(
fluidPage(
tabBox(
浏览 4提问于2016-01-28得票数 2
回答已采纳
新鲜到闪亮..。
我希望使用ui.R创建一个dashboardPage，并定义一个selectInput框(已完成！)
一旦用户选择了selectInput中的一个字段，就会获得一个Schools_Info.R文件。我已经尝试过source("Schools_Info.R")，但是我想要一些在后台运行Schools_Info.R的函数。
你是怎么做到的？
Schools_Info.R包含我希望用作sliderInput的min和max的值。
如何定义sliderInput，根据用户从selectInput框中选择的内容自动调整其限制(min和max)？
ui
浏览 1提问于2015-03-02得票数 1
回答已采纳
1回答
DT表中的闪亮小部件
、、、、
我正在尝试在DT表的行中包含textInput、selectInput (single)、sliderInput和selectInput (multiple)等出色的小部件。当小部件直接显示在页面上时，它们可以正确显示，但是，当它们被放入表中时，其中一些小部件不能正确显示。 除了一些css差异之外，textInput和selectInput (single)基本上都没问题，但是selectInput (multiple)不能正确显示，sliderInput肯定不能正确显示。看起来依赖javascript的widget才是有问题的。有没有一种方法可以让这些小部件在DT表中正常工作？ 这是我的可
浏览 12提问于2019-03-07得票数 5
回答已采纳
我正在创建一个闪亮的应用程序，但我对R和闪亮还是个新手。我希望有一个输入，它允许我从变量的所有级别中选择一个级别。变量已经是一个输入，变量所在的数据帧也是一个输入。以下是我在UI中的一部分代码：
selectInput("dataset", "Dataset :", choices = ls()),
selectInput("variable", "Variable X :", choices = NULL),
selectInput("level", "Level :", choices = NU
浏览 6提问于2020-05-20得票数 0
回答已采纳
我正在使用以前的解决方案中的代码
现在，在我的应用程序中，输入由服务器呈现并显示为不同的元素/行，如下所示
$row_1
[1] "LV1" "x1" "x2" "x3"
$row_2
[1] "LV2" "x4" "x5" "x6"
实际上，我希望能得到这样的东西：
"LV1" "x1" "x2" "x3"
"LV2" "x4" "x5" "x6
浏览 2提问于2020-08-12得票数 1
回答已采纳
我有一个灵活的仪表盘，上面有一个闪亮的应用。我想基于"agecat“中的selectInput值更新一个名为"agerange”的sliderInput的value。使用下面的代码，当我选择年龄为20-24岁的类别时，我可以将所选范围的下限值从15更改为20，但上限仍然是99，不会更改为20。
---
title: "test"
output:
flexdashboard::flex_dashboard:
theme: bootstrap
runtime: shiny
---
```{r setup, include=FALSE}
库(Flexd
浏览 17提问于2018-09-06得票数 0
回答已采纳
我正在尝试使用字符串列表更新一个闪亮的selectInput，其中一些字符串被引用。如果我使用selectize = TRUE，带引号的字符串不会出现在选项中，如果使用selectize = FALSE，它们会出现，但不能被选中。有人能告诉我如何解决这个问题吗？(我必须允许使用引号，因为字符串的带引号和不带引号的版本都可能是有效的选择。)
我的代码：
library(shiny)
runApp(list(
ui=fluidPage(
titlePanel("Problem with Selecting Quoted String"),
sidebarLayo
浏览 1提问于2015-01-09得票数 0
我创建了一个闪亮的仪表板侧边栏，我将MenuItem链接到tabItem，由tabName创建，并在每个tabItem中放置tabsetPanel
当我选择组A时，我希望能够显示不同的面板，即子组A1、A2和A3。我想对B组及其分组也这样做。我做不到，因为只有B组的面板才会显示出来。我想保留这个dashboardSidebar架构。
下面是我的脚本
ui <- dashboardPage(
dashboardHeader(title = "DASHBOARD"),
dashboardSidebar(width = 250,
s
浏览 1提问于2021-05-21得票数 0
回答已采纳
我只是在学闪亮。
下面是不起作用的代码(以及一些内置的示例数据)：
library(tidyverse)
library(shiny)
library(plotly)
library(shinyjs)
analysis_df<- data.frame(
report_month = c("jan","jan","jan","jan","jan","jan"),
payee_id = c("59","59","59","59&#
浏览 0提问于2018-06-23得票数 0
回答已采纳
闪亮的提到了对于selectInput()：
默认情况下应该选择的导航项的值(或者，如果没有提供标题)。如果为NULL，则将选择first导航。
如果默认情况下，我不想从select列表中选择任何值呢？
实际上，我的选择值在默认情况下是被选中的，而应用程序的rest部分是自动执行的。但我不想一开始就选择任何值。为了做到这一点，我应该向selected在selectInput()中提供什么参数呢？
实际上，我不希望自动选择任何内容。我使用了下面的代码，但它还是从列表中选择了第一个可用值。我希望默认情况下没有选择，这样用户就可以选择任何选项。
output$Choose_App <-
浏览 2提问于2014-06-12得票数 45
我正在开发一个带有动态selectInput的闪亮应用程序，这个应用程序是用renderUI创建的。
以下是server.r中的代码：
output$list_station<- renderUI({
choix_ce <- input$choice_of_ce
postes <- map_consos_enedis %>%
filter(Region == choix_ce) %>%
select(station)
selectInput(inputId = "choic
浏览 2提问于2020-07-01得票数 1
回答已采纳
我想从修改一个基本的闪亮示例应用程序的几个组件开始，但我一直收到这个错误：
ERROR: unused arguments (fluidRow(column(4, tags$hr(),
verbatimTextOutput("out1"), selectInput("in1", "Options", choices =
state.name, multiple = TRUE, selectize = FALSE))), fluidRow(column(4,
tags$hr(), verbatimTextOutput("out2
浏览 0提问于2015-07-10得票数 6
回答已采纳
1回答
我正在构建一个闪亮的应用程序，它显示一个基于用户选择的表格。我有一张名为“stat”的桌子，它的形式是
Team Season wins loss draws
Arsenal 1992-93 18 12 14
Arsenal 1993-94 21 10 7
Liverpool 1992-93 22 6 12
Liverpool 1993-94 19 13 10
All All 0 0 0
我需要根据球队和赛季选择的数据来筛选数据。该表应显示所有赛季的数据时，选择
浏览 1提问于2019-05-27得票数 0
回答已采纳
当我创建一个微小的数据same，并在RStudio中的绘图选项卡上运行两个直接绘图，然后尝试在闪亮中运行相同的概念，则直接绘图和闪亮的绘图显示为空白，并带有错误消息：
Warning in xy.coords(x, y, xlabel, ylabel, log) :
NAs introduced by coercion
我做错了什么？
我试图在web上阅读这段代码，在Stack溢出中给出一个先前的答案，这样它就接近了，但是我遗漏了一些隐式转换或什么的。我只想用闪亮来绘制数据帧的两列。
library(shiny)
dfx <- data.frame(xx=c(1,2,3,4,5)
浏览 4提问于2021-06-17得票数 2
回答已采纳
我有一个闪亮的应用，如下所示：
我在这里的目标是能够根据selectInput ui特性从类型列中过滤多个值。当我这样做的时候
selectInput(inputId, label, choices, multiple = TRUE)，则筛选不起作用，因为它需要1个响应。
下面是工作版本，但我不知道如何利用SelectInput中的多个功能。
我目前正在使用
test1<-filter(test, `Type`==input$file4)
当我将这个扩展添加到multiple=TRUE中时，这不起作用
服务器
library(shiny)
library(readr)
library(d
浏览 1提问于2017-02-16得票数 4
回答已采纳
我正在R中开发一个闪亮的应用程序，该应用程序由运行在linux上的闪亮服务器运行。
我需要创建一个并排的selectInput字段和submitButton。我做了以下尝试。
从我的ui.r
div(style="display:inline-block",
selectInput("input$GeneVariable4",
label = h4(""),
choices = (Choices_cd),
multiple = TRUE,
浏览 3提问于2018-04-11得票数 0
我试图使用一个反应性模型，其中一个输入会影响多个输出，如闪亮的备忘单中所描述的那样。我需要使用renderUI，因为选择列表是动态呈现的(在示例中没有显示)，但是，在初始化期间，selectInput返回NULL而不是默认值。在第一个空值之后，输入按预期工作。我刚开始发亮，可能做错了什么。
UPDATE:其他控件意外地不仅返回NULL，而且在初始化后返回NA。
请参阅下面的代码。请参见控制台输出，第一个输入返回NULL。
Listening on http://127.0.0.1:6211
NULL
chr "1"
chr "2"
chr "1&
浏览 1提问于2015-05-21得票数 7
回答已采纳
我有一个闪亮的应用程序，我希望每次用户选择包含特定单词的字符串(但不是确切的单词)时，conditionalPanel都会出现在以前的selectInput中。以下是我目前的情况：
library(shiny)
library(tidyverse)
ui <- fluidPage(
sidebarPanel(
selectInput("input1",
"Select a word:",
choices = c("Word1 something",
浏览 0提问于2018-10-30得票数 0
回答已采纳
1回答
我正在尝试构建一个闪亮的应用程序，它可以根据各种用户输入提供新的预测。但是，即使输入值随着输入而更新，预测值也不会更新。我很难弄清楚为什么。 该模型是一个随机森林回归模型，在本例中我使用了数字变量，但在我的情况下，输入是分类的(我认为此更改不会产生任何影响)，这就是为什么侧边栏是全部选择输入而不是选择数字的原因 我使用mtcars数据集创建了一个可重现的示例。 model <- ranger(mpg ~ disp + hp + wt, data = mtcars)
ui <- fluidPage(
sidebarPanel(
selectInput('d
浏览 24提问于2019-02-07得票数 2
回答已采纳
我将我的闪亮库更新为1.1.0版本，并注意到了selectInput/selectizeInput和观测事件/事件反应的一些非常奇怪的行为。
当我按下backspace并清除下拉菜单的内容时，就会出现问题。在前一个闪亮的版本中，backspace加上一个eventReactive，反应性表达式不会计算(我猜它把它当作NULL)，而reactive将计算出所需的值。
req()也很奇怪，在下面的示例1中，如果我们按下backspace并清除输入，就会触发renderTable，但是当req(输入$变量)为空时，表就消失了。在以前的版本中，如果有光泽的话，我相信这张桌子就会保持原样。
浏览 0提问于2018-08-17得票数 1
回答已采纳
我正在开发一个闪亮的应用程序，它在dropDownButton菜单下有多个selectInput。问题是，当用户选择一个selectInput时，dropdownButton会关闭。为了选择所有的selectInput，用户需要多次点击dropdownButton来打开菜单。有没有办法让dropdownButton菜单保持打开状态，直到用户点击submit按钮？下面是一个示例应用程序。 library("shiny")
library("shinyWidgets")
ui <- fluidPage(
dropdownButton(
浏览 23提问于2021-08-20得票数 0
我正在尝试制作一个交互式的、闪亮的仪表板，它有一个交互式的图形，您可以在这里更改绘图的值。我在renderPlot中放置的代码块正常工作，所以当我使用selectInput更改X和填充变量时，计数为什么没有显示在y轴上。
inputPanel(
selectInput('x', 'X', names(data)),
selectInput('y', 'Y', names(data))
)
renderPlot({
ggplot(data, aes(x = input$x)) +
geom_bar(aes(f
浏览 2提问于2018-03-25得票数 5
回答已采纳
1回答
我正在构建一个闪亮的应用程序。我想为所选的每一列呈现因子。为此，我有两个selectInput小部件。第一个小部件呈现列名，第二个小部件呈现第一个小部件选择的列的因子。我写的代码没有渲染这些因子，而同样是在闪亮的环境之外工作。代码如下：
第一个selectInput：
observe({
updateSelectInput(session, "filt", choices = sort(as.character(colnames(s()))))
})
第二个过滤器-返回在‘selectInput’selectInput中选择的列的因子。
observ
浏览 0提问于2016-01-31得票数 0
我有一个包含多个表的MySQL数据库。现在，我想在闪亮的仪表板中创建一个下拉菜单，它可以根据表中每一列的唯一值自动添加值。
我当前的代码如下所示
ui <- fluidPage(
numericInput("nrows", "Enter the number of rows to display:", 5),
tableOutput("tbl")
)
server <- function(input, output, session) {
output$tbl <- renderTable({
浏览 0提问于2018-04-12得票数 0
1回答
我试图创建一个闪亮的应用程序，用户可以在其中添加文本评论到一个表。
我创建了一个包含3列的dataframe：num、id和val。我要我的闪亮的应用程序做以下几件事：
从id列(selectInput)中选择一个值。
在文本框(textInput)中添加文本注释
单击动作按钮
在数据表中创建一个名为comment的新列，将文本注释添加到id等于所选值的行中的注释列中。
我闪亮的应用程序代码在下面。当我从selectinput中选择一个值时，在文本框中添加一些注释，然后单击“add注释”按钮，这是我闪亮的应用程序窗口自己关闭的。
有人知道为什么会这样吗？
提前谢谢！
浏览 0提问于2019-06-08得票数 0
回答已采纳
当单击选项卡时，尝试更新flexdashboard中的Sidebar。不能让它起作用。
---
title: "Test Sidebar"
output:
flexdashboard::flex_dashboard:
orientation: rows
runtime: shiny
---
```{r setup}
图书馆(柔性仪表板)
图书馆(闪亮)
图书馆(Shinyjs)
useShinyjs(rmd = TRUE)
Sidebar {.sidebar data-width=250}
==================================
浏览 2提问于2017-01-04得票数 11
1回答
我创造了一个闪亮的绝对面板。我已经创建了提交按钮和selectInput窗格。
selectInput("Customer", "Customer",groupcustomer),
submitButton("Submit",icon("refresh"))
以上代码在div标记中。我想要折叠，即在submitButton上隐藏特定的div或隐藏表单。我该怎么做？
浏览 4提问于2017-03-16得票数 0
回答已采纳
1回答
我正在开发一个闪亮的应用程序来显示一个非均匀的泊松过程。我有3种不同的lambda函数可供选择，并希望随着时间的推移显示一个lambda图。我的解决方案是使用以这3个函数为值的selectInput。
ui.R
shinyUI(
navbarPage(
title = "Non-Homogenious Poisson Process",
tabPanel("Home",
fluidPage(
sidebarLayout(
sidebarPanel(
浏览 2提问于2017-11-13得票数 0
回答已采纳
我有一个闪亮的应用程序，在下面有两个用户，shiny(管理)和shinymanager。根据用户可能使用的凭据，他看到了一个不同的selectInput()“变量”。
我想要做的是让shiny用户能够设置shinymanager将在他的“变量”selectInput()中看到的值和“选择”selectInput()。
# define some credentials
credentials <- data.frame(
user = c("shiny", "shinymanager"), # mandatory
password = c("
浏览 12提问于2021-12-27得票数 0
回答已采纳
我有一个可爱的闪亮的应用程序，接受selectInput值，查询一个postgres，并输出一个图表。(这是一个简单的接口，但由于dplyr数据库连接，这里很难重现！)
今天，我将第一个selectInput值更改为multiple=TRUE；更新了传递给数据库的变量，使其在修改后的控件返回的列表%中为%；所有这些都崩溃了。
在我选择一个值之前，控件是空的，所以我会看到一个发亮的红色"ERROR: RS-DBI驱动程序.“告诉我我的查询"IN ()“无效
当只选择一个值时，我会得到一个语法错误，“locationID”中的“A1080330”
我可以通过在返回的列表
浏览 6提问于2016-06-02得票数 2
回答已采纳
我在我闪亮的仪表板中使用pickerInput，这很好，除了一个问题:背景颜色和字体颜色太相似了，使得过滤器选择难以阅读。 ? 有什么方法可以改变背景或字体颜色吗？如果可能的话，我想继续使用pickerInput，但是如果有一个带有selectInput或其他任何东西的方法，那就好了。 我的一个选择器输入示例，它在屏幕截图中产生结果： output$typeOutput80 <- renderUI({
Commodity.Name <- as.vector( unique(DF2()$Commodity.Name) )
pickerInput("typeO
浏览 21提问于2019-01-08得票数 2
回答已采纳
我使用的是包含选项组的闪亮包的selectInput函数，如这个
在ui.r文件中有这样的内容：
ListOfItemsWithNames = list(condition = c("KO","WT"),treatment = c("non","oui"))
selectInput("Select1_contrast",label="Compare",ListOfItemsWithNames)
在server.R文件中，当我调用input$Select1_contrast时，我只得到所选的值
浏览 4提问于2017-06-27得票数 0
回答已采纳
在我闪亮的应用程序中，我有一个带有multiple=True的selectInput。这允许从列表中选择多个变量。我想为列表中的每个变量添加conditionalPanel，该列表仅当变量被选中时才会显示。
例如：
shinyUI(fluidPage(
sidebarPanel(
selectInput("variables", "Choose variables" , choices = c("VAR1", "VAR2", "VAR3", "VAR4"), mul
浏览 0提问于2018-04-11得票数 1
使用R闪亮，是否可以链接selectInput项来打开文件操作按钮？我想调整按下键的动作键来实现它。
请在下面找到一个可复制的示例：
假设我们在"www“文件夹上有"file_1.pdf”和"file_2.pdf“，我如何打开相应的文件以选择输入选择？
library(shinydashboard)
library(shiny)
ui <- dashboardPage(
dashboardHeader(title = "Open file app"),
dashboardSidebar(),
dashboardBody(
浏览 0提问于2018-09-19得票数 2
回答已采纳
我有一个闪亮的应用程序，在UI中有一个selectInput。
假设我的UI中有：
selectInput("my_select_input", "Select Letter", c("A", B", "C", "D"))
我想指定A和C选项的框应该是蓝色的，B和D的框应该是红色的。
浏览 3提问于2017-06-28得票数 3
回答已采纳
1回答
在闪亮中，如何将selectInput部件的值传递给另一个小部件？这就是我想要达到的目标：
selectInput("dataset", "",
choices = c("A", "B", "C"), # A to C are datasets in memory
selected = "B")
conditionalPanel("input.tabs === 'tab'",
chec
浏览 0提问于2018-03-13得票数 0
回答已采纳
我对R和R非常陌生，我目前正在开发一个基本的shinyapp，它将允许用户导入数据集，然后使用selectInputs来确定自变量和因变量。但是，每当我尝试执行anova函数时，都会收到以下错误：
警告:model.frame.default中的错误:变量'input$var3'的无效类型(NULL)
我还收到了以下错误：
警告：<-：对比度中的错误只能应用于2级或2级以上的因素
我不明白为什么会有这个错误，大多数解释都是指R中的错误，而不是R的闪亮。同样，我是个初学者，所以我的代码可能很难看。任何帮助都是非常感谢的！
ui <- fluidPage(theme =
浏览 1提问于2020-06-29得票数 0
回答已采纳
我正在开发一个闪亮的应用程序，在创建一个由多个输入组成的复杂表达式时，我遇到了observeEvent()函数的困难，这些输入都是从selectInput()派生的。 我的问题是observeEvent()函数中的一些表达式在启动时被触发，导致事件过早执行(即，我的actionButton()在启动时被禁用，但当至少有一个输入被选择时，它就会被启用，而理想情况下，我希望它只在所有输入被选中时才被启用)。如下所示： observeEvent({
#input$cohort_file
input$cohort_IDvar
input$cohort_index_date
浏览 30提问于2019-04-06得票数 2
回答已采纳
1回答
我试图通过在闪亮中使用select输入小部件来按某些因素级别或这些级别的组运行模型。
当我用一个因子水平子集时，我得到了正确的模型结果。但是，当我试图运行一个包含所有因素级别或级别组的模型时，我无法得到正确的模型估计。
例如，当包含所有因素级别(即模型在整个数据框架中运行)时，正确的模型估计是：
但是，当我运行我的应用程序并选择代表不同地理区域的因子变量的所有级别时，我得到了不同的结果：
我的问题是，我如何指定我的反应子设置功能，以适应所有的因素水平或级别组？
包括所有级别的单个模型的代码和按因子级别列出的模型，以供参考：
library(mlogit)
data("Heati
浏览 1提问于2018-04-25得票数 0
回答已采纳
我有一个闪亮的应用程序，其中有一个下拉列表，其中包含我手动输入的值。但是，因为我需要在下拉列表中填充很多值，所以如果我可以让用户在文本框中键入单词，并且应用程序只显示匹配的元素(类似浏览器)，那会更好。目前，我使用的代码是：
lapply(1:num, function(i) {
selectInput(paste0("n_input_", i), label = paste0("n_input", i),
choices = list("IN120" = 1, "CR23" = 2,
浏览 0提问于2016-05-11得票数 2
我正在做一个测试，将Tableau JavaScript应用程序接口集成到一个单页闪亮的应用程序中。我已经成功地呈现了Tableau Viz，但是过滤函数不起作用。
下面是我的代码：
library(shiny)
library(shinyjs)
shinyApp(
ui = fluidPage(
useShinyjs(),
tags$head(tags$script(src="https://public.tableau.com/javascripts/api/tableau-2.min.js")),
extendShinyjs(text='shinyj
浏览 9提问于2017-08-10得票数 2
回答已采纳
我在开发一个闪亮的应用程序。我对同时使用renderUI和removeUI有问题。如果在selectInput selectInput中选择"sum“聚合函数，则希望生成包含整数列或数字列(input$sumcol)的input$aggr ui。这是我的密码：
# elements in ui
selectInput("vars", "data to display:", choices = NULL, multiple = TRUE, selected = NULL),
selectInput("aggr", "aggregat
浏览 1提问于2017-05-17得票数 2
回答已采纳
1回答
我是个新手，所以这可能是一个非常基本的问题。我想写一个闪亮的应用程序，其中用户输入'n‘，我们得到n个selectInput选项，但无法做到。基本上，任何形式的for循环都不起作用。我尝试的代码如下
library(shiny)
ui = fluidPage(
sidebarLayout(
sidebarPanel(
textInput(inputId = "number", label = "number of selectInput",value = 5)
),
mainPanel(
uiOutput(outputId =
浏览 1提问于2018-08-06得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
