请帮忙,
获取有关此代码附近的反应式函数的错误:
stockstxtclosure <- reactive({
query <- parseQueryString(clientData$url_search)
stockstweets = searchTwitter(query[["ticker"]], n=10, lang="en")
stockstxt = sapply(stockstweets, function(x) x$getText())
我正在尝试开发一个闪亮的应用程序,其中有多个标签上的数据输入。每个选项卡下的内容都可以独立工作,但是当我尝试将它们合并到一个应用程序中时,我仍然会遇到此错误。match.arg(位置)中出错:“arg”必须为NULL或字符向量。我的代码如下:
library(shiny)
library(shinydashboard)
library(ggvis)
sidebar <- dashboardSidebar(
hr(),
sidebarMenu(id="tabs",
我想上传一个.csv文件。然后,将单选按钮选项更新为上载文件的列名,然后通过该单选按钮选择要显示的列。问题是每当我运行代码时,它都会给我这个错误
p.S.1.在运行此应用程序之前,有没有办法读取数据?比如在另一个应用程序中
库(闪亮)
ui=基本页面(
fileInput('uploadedcsv','',accept='.csv'),
单选按钮(
“第1栏”,
“选择列”,
选择=”,
内联=T
),
单选按钮(
“第2栏”,
“选择列”,
选择=”,
内联=T
),
dataTableOu
标签: Shiny
r-markdownchunks
我想创建一个闪亮的RMarkdown应用程序,允许上传自己的数据集。数据集有时不仅影响一个可由renderPlot或类似程序重新渲染的块,有时还影响两个或多个块。请参见以下示例:
---
title: Render multiple chunks
output: html_document
runtime: shiny
---
```{r echo=FALSE}
library(shiny)
fileInput('file1', 'Choose your own CSV File instea
很抱歉不能提供一个可复制的示例,但下面是我的datatable的选项。基本上,如果按下屏幕截图按钮-我不希望启用滚动功能-否则应该启用。感谢您的帮助或建议!if语句最初的计算结果为false,但默认情况下仍禁用滚动功能
还有,有人知道生命的意义吗
` options = list(dom = 't', paging = FALSE, ordering = FALSE,
#pageLength = -1,
标签: Shiny
renderingreactive
我确信有一个函数可以让我在加载选择器和反应数据后等待渲染Echarts4R输出,以减轻影响,直到加载为止!一旦反应数据被加载,我就会得到一个很好的输出。在加载时,最好有一个加载符号或其他东西。不过,加载只需大约一秒钟,所以这不是必须的
下面是一些示例代码片段。
图形的用户界面:
box(width = 12, title = "Total Escalated Project Costs by Calendar Year", solidHeader = TRUE, collapsible = TR
我正在使用Rshiny应用程序,我想使用Rshiny actionButton而不是内置的plotly download按钮下载plotly生成的绘图。我曾尝试使用downloadHandler下载绘图,但由于某些原因,下载窗口需要很长时间才能显示,这在使用modebar的下载按钮时不会发生。有没有办法将plotly modebar下载按钮与Rshiny actionButton链接
提前谢谢 这里有一种通过按下按钮来下载的方法:我以前从未尝试过,而且效果很好!非常感谢你!
我构建了一个小应用程序来测试我是否可以在应用程序中上传一个文件,并将上传的文件保存到Dropbox中。它在我的本地Rstudio中运行良好,但是当我将它部署到shinyapps.io时,我上传文件后就得到了“与服务器断开连接”的消息。我在Mac OX环境中,以下是我的代码:
ui.R:
library(shiny)
library(rdrop2)
ui=shinyUI(bootstrapPage(
fileInput("upload", "Upload", multiple = FAL
标签: Shiny
shinydashboardshinyjs
我正在寻找一种方法来隐藏主标题切换图标,就像我们使用ShinyJS包在R Shinny应用程序中为侧栏所做的那样。附加图像以供参考
密码
您可以更新dashboardHeader函数并删除创建按钮的项。请注意,我刚刚注释了它并重命名了该函数
#rm(list = ls())
library(shiny)
library(shinydashboard)
library(shinyjs)
mydashboardHeader <- function(..., title = NULL, disa
在我的应用程序关闭之前,如果应用程序关闭时有无错误,我想登录一个文件
理想情况下,我想设置两个变量:
错误为布尔值(错误与否)
errorMessage作为字符(错误消息)
我的例子是:
library(shiny)
ui <- fluidPage(
mainPanel(
actionButton("works","Exit without error")
,actionButton("error","Exit with error")
标签: Shiny
networkd3sankey-diagramhtmlwidgets
我正在开发一个应用程序,根据CSV文件(如本文中包含的文件)输入的数据,使用软件包中的sankeyNetwork(),显示一个sankey图形
我在按组着色sankey图中的链接时遇到问题
以下是我使用的代码:
output$splot <- renderSankeyNetwork({
print(names(data()))
sankeyNetwork(
Links = data(),
Nodes = label()
标签: Shiny
shinydashboardshinyjs
我想在一个闪亮的应用程序中跟踪用户的旅程,为此我需要检测用户是否单击了某个选项卡。为此,我使用了shinyjs库和一个自定义js跟踪函数。但目前我还不知道如何在onclick()函数中使用input$tabs而不是id。当我将选项卡的tabName用作id时,该函数不会在单击时做出反应
library(shiny)
library(shinydashboard)
library(shinyjs)
ui = dashboardPage(
dashboardHeader(title =
标签: Shiny
hoverzoomingmouseovershinyapps
我正在使用RShiny构建一个应用程序,它将pdf渲染为PNG图像,然后通过调用imageOutput显示该图像(如果需要,可以通过其他输出渲染图像,如plotOutput)
我希望用户能够将鼠标悬停在图像上,以显示同一图像的更大、更放大的版本或子集(下面的示例)
有没有一种方法可以在Shiny中实现这一点
多谢各位
以下是基于以下内容的尝试:
库(闪亮)
ui以下是基于以下内容的尝试:
库(闪亮)
ui有多个。有多个。我最终使用了W3schools()提供的这个,感谢您向我发送该方向的信息,很
标签: Shiny
r-plotlycrosstalk
我有一个闪亮的应用程序,它允许在结果图中使用反应变量和k簇对数据进行聚类,并通过搜索或高亮显示进一步高亮显示图中的某些标记
每当我改变变量或K簇,就会在一个闪亮的应用程序中产生更多的笔刷实例
下面是一个示例以及输出的图像。如何避免在闪亮的环境中出现多个笔刷实例和SharedData标题的这种行为,只需像示例中那样维护一个笔刷和搜索框
库(闪亮)
图书馆(绘本)
嗨,我不知道你有什么问题。请澄清。问题是,当我更改值SelectInput widgets时,我会得到多个笔刷颜色和共享数据,而不是在您
最后,我想在修改数据帧的记录后更新绘图。现在,按下“提交”按钮时,下面的代码成功地用标签更新了选定的点,但是,由于我正在过滤行以仅包括缺少标签的行,因此我不确定为什么打印不会重新渲染
library(ggplot2)
library(Cairo) # For nicer ggplot2 output when deployed on Linux
suppressPackageStartupMessages(library(dplyr))
# We'll use a subset of th
我试图将pickerInput下拉列表放在confirmSweetAlert按钮前面,但在CSS中使用z-index似乎不起作用。还有其他建议吗
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
actionButton(
inputId = "launch",
label = "Launch Confirm!"
)
)
server <- function
我对在R中使用conditionalPanel有问题。基本上,第一个条件(condition=“input.year==2011”)正在工作,它为我提供了一个右左映射。但是,当我使用第二个条件(condition=“input.year==2012”)时,我得到了一个空映射!有没有关于如何摆脱这个问题的建议
这里是我的服务器和用户界面:
用户界面
服务器
首先加载数据
PM25卫星%addRasterImage(城市覆盖),
颜色=pal_URB,
不透明度=0.6)%>%
addLegend(
我有一个应用程序,它有很多tabItems,对于每一个,我都指定哪些文件应该放在某个目录中(在下面的示例中,我使用getwd()),以便该应用程序可以运行某些过程
这些文件将与按钮和其他功能一起列在“表”中
有时,在一个选项卡项中生成的文件将用作另一个选项卡项中的输入。。
我想将模块中为该文件动态创建的按钮隐藏在选项卡item中,该选项卡使用该文件作为输入
我已经找到了如何做到这一点,但我想知道是否有可能从服务器上做到这一点
以下是我试用过的应用程序的小版本:
## global ----
li
在RStudio中,如果我使用Ctrl+Enter,逐行运行下面闪亮的代码,那么它工作得很好。但是,如果我使用“run App”按钮运行整个代码,则会生成以下错误:
ts(x)中的错误:“ts”对象必须有一个或多个观测值
我认为这是由于“lambda”参数,但我不明白为什么。感谢您的帮助
“data.csv”的链接是
====================================
library(shiny)
library(shinydashboard)
library(plotly
我有一个反应图,它接受多个输入,但它依赖于所有这些输入。有没有一种方法可以让图形接受所有的输入,但它不依赖于所有的输入。例如,如果用户选择一个下拉列表,则图形将更新,不需要任何其他输入,但如果用户添加第二个输入,则图形将使用第二个输入进行更新,但不需要第三个输入,除非已选择。此外,如果用户选择的内容为空,则不会更改图形
用户界面:
ui不是最简单的,但如何按如下方式分离过滤:
server <- function(input, output, session) {
output$
标签: Shiny
rstudioshiny-servershinyapps
我在上有一个帐户,用于部署闪亮的web应用程序。但是,我不再使用它,我想删除这个帐户。有没有选择,怎么做?我在帐户设置中找不到类似的选项。这是RStudio的一部分,请联系支持部门?这是RStudio的一部分,请联系支持人员?
标签: Shiny
shinydashboardbs4dash
在Bs4dash中,向bs4Card添加下拉菜单非常简单,但向bs4tabcard添加下拉菜单要困难得多。在下面的可复制代码中,我显示了带有下拉菜单的bs4card和不带下拉菜单的bs4tabcard。我想要一些帮助添加到bs4tabcard面板下拉列表
这是代码和图片。多谢各位
library(shiny)
library(bs4Dash)
shiny::shinyApp(
ui = bs4DashPage(
old_school = FALSE,
我想在以下位置复制该示例:
基本上,我有一个300乘300调整的相关矩阵和一个300乘300未调整的相关矩阵,并希望通过放大和缩小功能以交互方式显示它们。文本描述应显示点估计值和置信区间
有什么模板我可以快速参考吗?我认为plotly可以很好地做到这一点。这些是文件:
下面是一个小模板示例(借用Porkchop的最小闪亮模板来回报Porkchop的好感),其中包含一些虚假数据:
library(shiny)
n1 <- 100
n2 <- 100
nr <- 30
nc <
为什么不显示条形图?如果在较大的程序外运行相同的代码,将显示条形图。我得到单选按钮和图表的轮廓,但里面没有数据。我在下面介绍了服务器、用户界面和数据。我是个新手
我在多处尝试了括号、逗号和括号。我还没有找到解决办法
UI.r
#UI Program
library(shiny)
library(shinydashboard)
library(ggplot2)
library(ggthemes)
library(DT)
# my data
my_data=read.table("hack.csv
我正在使用shinydashboard构建一个应用程序,其中包含一个带有菜单项/选项卡项的侧栏菜单,但我无法使用第二个选项卡(包括小部件)来显示结果。正文仅显示第一个选项卡。这一定很简单,但我看不出我做错了什么
下面是一个可复制的示例:
## app.R ##
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebar
我在StackOverflow上看到了以下代码。在X和Y中输入值时,将计算总和,并显示消息“X+Y=”。但是,重置时,仍会显示上一示例中的“X+Y=”消息。请问我怎样才能清除那个信息
代码如下:
library(shiny)
library(shinyjs)
ui <- fluidPage(
useShinyjs(),
div(id="form",
sidebarLayout(
sidebarPanel(
numericInput("x","X",0),
我试图添加geom_smooth(method='alluch'),但这并没有显示在绘图中。我相信这与数值有关,geom_smooth没有将输入识别为数字
> head(CH12F3.miRNA_prep.miRNA)
miRNA variable value
1 mmu-let-7a-1-3p 0h 0.5098628
2 mmu-let-7a-5p 0h 0.4286451
3 mmu-let-7b-3p 0h
标签: Shiny
navbarshinydashboardsidebar
我是shiny的新手,我正在尝试创建一个带有navbarpage功能的应用程序,我想使用shinydashboardplus包中的一些元素,比如带有侧边栏的boxplus,但侧边栏不会关闭
这是我的代码:
library(shiny)
library(shinydashboard)
library(shinythemes)
library(shinyWidgets)
library(shinydashboardPlus)
ui <- navbarPage(theme = shinyth
有没有办法给下面的“电子邮件”栏涂上颜色(如果“电子邮件”大于“电话”,则为红色,否则为黄色)。这里的挑战是,我们是否也可以隐藏“调用”列
library(shiny)
library(tidyverse)
library(DT)
x <- tibble(
Unit = c("Sales", "Marketing", "HR"),
Calls = c(100, 150, 120),
Emails = c(200,
我有一个闪亮应用的工作代码,但现在它显示错误:
其中之一是
警告:服务器错误:找不到函数“renderDT”
虽然我已经包括了DT库
标签: Shiny
ggvisshinydashboard
我没有找到任何与我的问题和关键词相符的东西。我无法让ggvis图表将自己限制在shinydashboard的给定区域内。示例应用程序(Windows 7)显示了三个ggvis图,每个图都超出了各自仪表板框和列的右边框-除非窗口非常宽
想法
library(shiny)
library(shinydashboard)
library(ggvis)
ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
das
我有一个sliderInput()范围从0到100,希望将其限制为只允许0到10的值。有没有办法做到这一点
注意:这似乎是一个愚蠢的请求(只需设置max=10以缩短刻度),但我有充分的理由希望保持满刻度
您可以通过以下链接执行某些操作:
rm(list = ls())
library(shiny)
ui <-basicPage(
sliderInput("slider1", "Slider 1: ", min = 0, max = 100, value = 0, step=1)
)
标签: Shiny
shinydashboardshinyjsshinysky
我找不到关于这个相当不受欢迎的包()的很多信息,但我正在使用它的自动完成功能。我可以让文本框自动完成并建议单词,但我想访问该值并将其逐字打印出来
这是我在服务器中的内容。R:
library(shiny)
my_autocomplete_list <- c("aaaa","bbbb","ccccc", "dddd","eeee")
# ============================================================================
是否有任何方法可以使用按钮下载选定的行扩展名?如果没有,是否有办法在左上方的表格中添加自定义按钮?我知道如何下载选定的行。我发现我们可以添加自定义按钮来选择列()
我添加了2个自定义按钮(在下面的代码中提到)
库(ShinydaShashboard)
header不确定您希望下载所选行的格式,但下面是一个基于所选内容存储csv文件的示例(您需要一个downloadButton):
库(闪亮)
图书馆(shinyalert)
图书馆(shinydashboard)
我知道如何下载选定的行。但我想用
我想将黑暗主题应用于闪亮的应用程序(黑暗、砂岩、电子人等),但生成的DT数据表几乎无法读取
我知道以前有人问过这个问题,但答案对我来说并不适用。使用DataTable示例()是否有人能告诉我如何解决这个问题(即如何使用暗主题并生成可读的DataTable
谢谢您是否签出了shinythemes::themeSelector()?是的,对我不起作用为什么不起作用或者什么不起作用?
我已经创建了多个selectInputs,当从下拉菜单中选择某些内容时,它们将改变多个图形。目前,5个图中只有3个在工作,尽管它们都有相同的代码。到目前为止,贩运类型、子类型和性别工作,但控制方法和运输方法不适用
用户界面:
ui您在ui中的plotlyOutput具有idcontrolMethod,而您在服务器中的outputid是control。将后者更改为输出$controlMethod
ui <- dashboardPage(
dashboardHeader(title = "
我有一个数据分析应用程序,它接受一些Excel数据文件并在数据表中呈现数据。在R Studio中开发的一个非常简单的应用程序,在R Studio中使用Shining。该应用程序在我的本地开发计算机上运行
我面临着一个特殊的问题——当我第一次从R-studio运行应用程序并加载文件时,应用程序运行了所有代码,但屏幕上没有呈现任何内容
如果我退出应用程序(不是R Studio-只需关闭应用程序)并再次运行它
-现在它运行得很好
这在应用程序的每次首次运行中都会持续发生。我在R Studio的控制台中
我正在努力重新定位仪表板主体,因为正如我在所附图片中所示,它正在切割tabBox标题的一部分。我尝试使用side=“right”,也尝试使用tags$style(HTML(“.tab content{width:300px}”)并更改width=“n值”,但它不做任何更改。有人知道如何解决这个问题吗?我真的很感激
ui <- dashboardPage(
dashboardHeader(title="Deteccao de arvores individuais de LiDAR e
标签: Shiny
shiny-servershinydashboard
Rshiny中的电子邮件问题::从Shinyapps.io以pdf/.html格式附加数据框
[![i=iris
图书馆(闪亮)
图书馆(邮递)
ui=fluidPage(
fluidRow(
div(id=“login”,
wellPanel(title=“邮寄您的报告”,
textInput(“to”,label=“to:”,placeholder=“to:”),
文本输入(“子”,“主题:”),
文本输入(“消息”,“消息:”),
actionButton(“邮件按钮”,label=“发送
我有一个在本地R服务器(端口8787)上工作的应用程序。当我将其移动到Shining Server(端口3838)时,我收到消息
ERROR: An error has occurred. Check your logs or contact the app author for clarification.
而且/var/log/shinny server.log中没有日志文件
这是我的配置文件:
# Instruct Shiny Server to run applications as
是否可以将selectinput和NUMERICIINPUT链接到SHINK中?我想让应用程序的用户从selectInput中选择一些内容,然后为该特定选择输入一个值。列表中的每个变量都有一个数字输入要输入。最终,这些值将被注册到数据表中。选择更多变量只需要单击一个按钮。我对shiny的了解有限,这是我所能收集到的全部信息,请告知
ui <- fluidPage(
selectInput("solvent", "Choose a solvent:",
我有一个包含以下数据的表(在本例中缩短):
C1 C2 C3
1011
2110
31101
4.1
5001
600
我想创建一个查询,该查询将给出以下结果:
C1
C2和(C3)
它类似于透视表,但它是静态的。
你能帮帮我吗?我会很感激的 不知道你想要什么。添加一些值和一些您尝试过的代码。我认为这是一个问题,而不是一个有光泽的问题。我正在尝试构建一个有光泽的应用程序。到目前为止,您尝试了什么?希望你在R方面已经不错了,因为Shining不是初学者的R主题。我在这两个方面都是初学者,我的数据框
我创建了一个闪亮的应用程序,其中包括一个checkBoxGroup。调用时,此元素返回一个包含选定选项的向量。我可以使用write.table()将其写入文件,并创建一个CSV文件,其中一行如下所示:
Jota 5 5 nature3 5 5 FALSE c("choice1", "choice2", "choice4") property c("choiceA", "choiceB", "ChoiceD", "choiceE", "choiceK") 5 5
"name","groupIn
我有一个闪亮的应用程序,通过了googleAuthR库的google+API认证。因此,当人们点击按钮时,他们会被重定向到谷歌认证页面。我想把谷歌设置的双因素认证添加到这个页面,就像我提供的截图一样。有人能帮我吗?谢谢事实上,如果你已经在你的谷歌账户上实施了双因素认证,那么谷歌将自行处理。所以,当我登录到另一台计算机时,它要求我给出一个通过短信收到的代码。因此,双因素身份验证似乎与谷歌账户相关联。目前为止您尝试了什么dit?这有帮助吗:?
标签: Shiny
flexdashboardshinyapps
我开发了一个仪表板,使用shiny和flexdashboard监测巴西的新冠肺炎病例。它工作正常,但在移动设备上不行(至少在某些设备上是这样)。在侧边栏上有一个selectinput(),带有multiple=TRUE,问题是每次移动用户试图选择一个值来更新绘图时,屏幕键盘都会显示出来,并且在选择之前会重新加载整个应用程序(为了正确使用,用户需要选择状态并单击“Atualizar”)按钮更新)
我试图通过复制siderbar部分来解决这个问题,第一个部分使用{.no mobile},第二个部分使
我用的是传单和闪亮的。我想根据可以通过输入更改的列为标记着色。几乎和我的一样。在本例中,用户可以更改调色板。在我的示例中,我想更改应用调色板的列。
我正在尝试使用类似于:
fillColor = ~pal(!!sym(input$col_to_apply)) # input$col_to_apply is a column name (string) I want to use
然而,这不起作用。我也不确定在这种情况下是否必须使用reactive()。当然。我的建议是在创建调色板之前完成。调色
我想根据列中的值应用样式。例如,第一列有文本“A”,然后将样式应用于整行。我对rowcallback也做了同样的尝试,它可以工作,但不应用边框。我尝试使用默认数据表边框样式覆盖边框折叠:折叠
library(shiny)
library(DT)
css <- "
table.dataTable {
border-collapse: collapse !important;
}
.lastRow {
border-top: 1px solid #000 !importa
我想知道在shiny中没有这样的小工具可以用来输入文本(粘贴多个值)。。有什么建议吗
您可以接收逗号分隔的输入,然后在服务器端,用逗号分隔输入,然后继续工作。textAreaInput如下所示。
Shining提供了一个包装selectize.js的selectizeInput,它生成一个文本输入/组合框小部件。我想延迟加载selectizeInput的选项/值有几个原因:可能有一个很长的值列表,或者可能的值取决于其他参数。此外,我希望用户能够创建新的值(例如,选择现有值或创建自己的值)
但在所有这些情况下,selectizeInput的值都不能使用Shiny的服务器端书签进行书签。初始化selectizeInput对象时,输入中存储的书签值还不是有效的选项值
是否有人有任何聪明的解决办
标签: Shiny
rstudior-markdownflexdashboard
我是新来的,正在尝试学习R,我制作了一个应用程序,您可以上传您的file.csv文件,但我不知道如何调用数据以生成摘要、绘图等。我将感谢您帮助我理解如何进行的系统方法。代码附在下面。提前谢谢。
代码如下:
---
title: "Data Visualization"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: scroll
#storyboard: tru
上一页 1 2 3 4 5 6 ...
下一页 最后一页 共 18 页