不知道为什么会这样。有人能帮我吗?当应用程序打开时(默认情况下),单击箭头(第二行中的小箭头),会弹出模式框(这很好)。但当选择其他日期(今天除外)时,数据会更改。但现在,如果单击小箭头,则不会弹出模式框。不知道为什么?有人能帮我吗
library(shiny)
library(shinydashboard)
library(DT)
number_compare <- data.frame(replicate(2, sample(1:100, 10, rep=TRUE)))
sideb
我正在尝试创建一个闪亮的应用程序,它基本上是一个带有“关于”选项卡的表格
有两件事我遇到了麻烦:
其中一列是具有美元金额的。我希望格式是1225美元。我能做到的最接近的方法是使用paste0,但是当你对列进行排序时,它并没有像预期的那样工作,我也没有得到数千个逗号
我希望能够在下拉菜单中选择“全部、a、C、D”。如果我选择“A”,它将只显示“Something==A”的表。现在这是可行的,但我不确定我是否以最好的方式编码
这是我的ui.R
library(shiny)
shinyUI(flui
标签: Shiny
r-markdownhtmlwidgets
该问题讨论了在动态R标记文档中很难设置rglwidget的大小这一事实。问题是Shining output函数设置大小,但没有明显的方法向其传递任何参数,因此始终使用默认的512 x 512大小
rgl::renderrgwidget函数是根据htmlwidgets::shinyRenderWidget中的示例编写的,该示例不提供传递输出参数的方法:
rglwidgetOutput <- function(outputId, width = '512px', height = '512px
标签: Shiny
shiny-servershinyjs
我有下面闪亮的应用程序
library(shiny)
runApp(shinyApp(
ui = fluidPage(
shinyjs::useShinyjs(),
selectizeInput(inputId = "aaa", label = NULL, choices = c('a', 'b', 'c', 'd', 'e', 'f'), selected = NULL, width = '90%',
op
标签: Shiny
shiny-reactivity
我试图过滤一个数据帧,然后对数据做一些简单的绘制。我尝试在闪亮的文档上使用R studio示例,并在主题上发布了以下SO帖子:
这是我的密码
---
title: "Shiny Filter Test"
author: "Novice"
date: "12/13/2019"
output: html_document
runtime: shiny
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
我已经做了好几个小时了
我使用以下代码编译了一个stan模型:
model <- stan(file = "model.stan", data = data, save_dso = FALSE, chains = 4, cores = 4, iter = 2000, warmup = 1000)
此代码正在一个闪亮的应用程序中运行。在当地,所有工作都按预期进行
当我将此应用程序部署到shinyapps.io时,模型会尝试重新编译(导致g++错误-可能是因为内存不足)。不管怎样,我不希望这
我有个问题。我编写的应用程序在本地运行良好,但当我尝试在Rstudio的闪亮服务器上上传时,我只有一个警告:
Warning message:
Error detecting locale: Error in read.table(file = file, header = header, sep = sep, quote = quote, : incomplete final line found by readTableHeader on 'raw'
(Using default: en_
标签: Shiny
default-valueshinytree
我正在尝试实现一个具有默认选定值的shinyTree。有人知道这是否可能吗
我在这本书或随附的例子中找不到任何东西
感谢所有帮助。将所需节点的“stselected”属性设置为TRUE
例如:
output$tree <- renderTree({
sss=list('Nodes' = list('Node1' = '1', 'Node2' = '2'))
attr(sss[[1]][['Node1']],"stselected")=TRUE # <---
attr
标签: Shiny
shinydashboardrscript
我无法通过闪亮网页中的子目录路径上传图像
我创建了一个名为“www”的子目录文件夹,并将图像放入其中
我也尝试过使用URL
仍然不起作用
imageOutput("d", width = 300, height = 500)
output$d <- renderImage({
list(src= "driveaxle.png",
filetype = "image/png",
)})
几天以来,我一直在尝试让我的闪亮应用程序工作,这样当我将鼠标移动到绘图中的某些点时,它们会显示在表格中,但不幸的是,它不工作。
我不知道我做错了什么,你能帮我吗
border括号有一些问题。但主要的问题是,您需要ggplot(table,aes(x=table$A,y=table$B)),然后nearpoints正在查找名为table$A和table$B的列。改为绘制ggplot(表,aes(x=A,y=B))
library(shiny)
library(ggplot2)
table <
我想提取活动选项卡名。我定制了侧边栏,它不返回所选(或活动)选项卡名称。因此,我不能使用此方法:侧边栏菜单中的id参数,然后使用服务器中的输入$id调用它。因此,我想用javascript解决这个问题。我使用JS$('.tab content').find('.active').attr('data-value')尝试了这个方法,但它不能正常工作
library(shiny)
# devtools::install_github("MarkEdmondson1234/gentelellaShin
我试图消除此表格和浏览器窗口左侧之间的空间,但当我这样做时,它会弄乱导航栏链接和标题的间距
如何在不更改navbar/ui/li元素的填充/边距的情况下删除Excel表上的填充/边距
library(shiny)
library(excelR)
shinyApp(
ui = navbarPage("title", selected = "main",
position = "fixed-top",
tags$style(type="
标签: Shiny
shinydashboardshinyappspersistent-storager-googlesheets
我是R Shinny的初学者,我对我在shinyapps.io上的应用程序有一些疑问。
我想实现一个功能,允许用户从他们的私有谷歌表单(未发布到网站)导入数据。
我已经在shinyapps.io上发布了我的应用程序,但它总是说“与服务器断开连接”。我猜这个问题与谷歌上的私人页面授权有关。
我在网上做了一些研究,但没有找到解决这个问题的好例子。有专家能帮我解决这个问题吗。我真的很感谢你的帮助
下面是我发布的示例代码。如您所见,我目前使用以下行从Google Sheets导入数据:
gs4_find
fileInput允许用户将其数据上传到文件中。在数据已上载时,是否有任何方法卸载数据 “卸载”是什么意思?可能的副本正是我要找的。谢谢!@零323
标签: Shiny
shiny-servershinydashboard
我正在尝试使用多行仪表板标题,因为我的标题太长
代码是:
dashboardHeader(title="NMR Reference\nCorrection")
明白了。
原来有一个文档,就在仪表板网站上。但无论如何,我会把它放在积存处,这可能是有益的
非常感谢你,
比尔明白了。
原来有一个文档,就在仪表板网站上。但无论如何,我会把它放在积存处,这可能是有益的
非常感谢你,
账单
我有一个启用了筛选器的数据表,我想从该数据表中读取选定的行
如果未应用筛选器,则输入$table_rows_selected可以正常工作,但一旦对数据应用筛选器,则不会返回正确的行索引
ui <- function(id) {
fluidPage(
title = "Job Tracker",
fluidRow(
column(width=6,
selectInput("pickvalue", label = "Pick a Va
在服务器应用程序中,我的R Shining应用程序中有一个renderDataTable对象,它显示用户在散点图中刷取的那些游戏的所有标题,并在数据表中显示它们以及一些更多的统计信息
output$dtable <- renderDataTable({
brushedPoints(daten(), input$brush_plot) %>% na.omit()
%>% select(GAME.NAME,input$x, input$y)
})
我正在尝试将一个fluidRow合并到shinydashboard应用程序的侧栏中。我希望这样做可以将侧边栏的宽度分成12列。然而,发生的情况是,侧边栏中只显示10或11列,而其余的列交换到仪表板主体中或移动到下面的行中。例如,代码
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Dynamic sidebar"),
dashboardSidebar(
我一直在开发一个web抓取应用程序,用于从JSTOR收集一些信息。该应用程序在本地运行良好,但在shinyapp.io上部署时不起作用
这个想法很简单,应用程序下载html页面(如下:)并阅读旁边的列表,在那里可以找到关于每个学科的点击次数的信息
webpage <- read_html(filePath)
hits_html <- html_nodes(webpage, 'li')
hits <- html_text(hits_html)
网页亚瑟!它似乎与预期结果中使用的
标签: Shiny
r-markdownknitr
我不能用shiny编译任何.Rmd文档。例如,此五行文档(或任何文档,例如使用File->New File->R Markdown…:Shining document创建的文档)
单击“运行文档”按钮时出现此错误:
我发现,如果我创建了一个新项目,然后用Shiny创建了一个新的R标记文件,那么它就可以编译了
我一定是在我以前的项目目录中的某个东西,它阻止了我用带有shinny的文件编译我的.Rmd。我确实有很多其他文件(包括其他.Rmd和shinny,其中没有一个是编译的)和各种子目录(我也有.
(1) 我想在shinyapp.io上托管一个应用程序,并将其嵌入我的网站。我想允许其他人使用此应用程序(shinyapp.io url),以便他们可以在自己的网站上发布该应用程序。有没有一种方法可以让我轻松分享
(2) 如果我有一个相对繁忙的网站,我需要多少实例和活动时间
提前谢谢
有一个关于使用iFrame在html文档中嵌入闪亮应用的对话
标签: Shiny
rstudior-markdown
我正在#RMarkdown上创建一个测试页面,并尝试在其中添加#闪亮的内容。编织到HTML时,我收到以下错误
appshot.shinny.appbj(列表(httpHandler=function(req))中出错:
尚不支持闪亮应用程序对象的appshot。调用:
…在_dir->do.call->->appshot.shinny.appobj执行中
停止
请提供帮助。在#RMarkdown中运行闪亮应用程序需要哪些软件包?或者要成功运行#RMarkdown,应该做些什么
下面是我的测试代码
我无法在Shiny中创建列联表。结果是两列并排显示,而不是交叉显示
output$currtarget<-renderTable({
currtgt<- cstable %>%
select(parent_id,tutor_id,status_name,first_name) #%>%
xtabs(as.formula(paste0("~",status_name,"+",first_name),currtgt)
})
输出$
下面是我想在运行时的Rmarkdown文档中执行的操作:shinny-
读取查询字符串
从查询字符串中的变量获取textInput的默认参数
如果查询字符串中的变量指示
问题似乎是读取查询字符串必须在反应上下文中完成,但构建接口发生在反应上下文之外。这是我的第一次尝试,作为Rmarkdown文件:
---
title: "Test session variables"
output:
flexdashboard::flex_dashboard:
orientation: row
r
我有一个运行在云服务器上的闪亮应用程序。我没有收到任何错误消息,并且我的应用程序会话日志是干净的。我的应用程序加载大约需要30秒…我的假设是:当应用程序加载时,用户单击页面或选项卡中的各种输入选项…这会同时触发多个加载…导致应用程序崩溃
当我说崩溃时,它就死了。我必须使用命令行再次启动应用程序
有什么补救办法吗?
当我收到一条消息Active:inactive(dead)时,是否有办法自动重新启动闪亮服务器
我有很多(比如30个)闪亮的应用部署在闪亮的服务器上(开源版本)。有时,当我(或我的同事)更新其中一个软件包时,一些应用程序会停止工作。我想知道是否有什么方法可以自动执行检查,而不是每次我们更改任何内容时手动检查所有应用程序?理想的解决方案是每天(每小时?)运行一个脚本,检查每个应用程序是否可以加载,如果不能加载,则发送一封电子邮件。我这里不考虑小错误。更多关于应用程序未加载的信息,例如,某些功能缺失。关于如何实现这一点,有什么建议吗?我最近了解了shinytest。这可能会有所帮助
标签: Shiny
shinydashboardshinyjsshinyapps
我想知道是否有人知道如何让我的注销按钮工作
我的计划是:
UI
ui2 <- function(){
tagList(tabPanel(""),
pageWithSidebar(
headerPanel(
""
),
sidebarPanel
(
actionButton("logout", "Logout")
)
如何修改shinythemes的主题?例如,假设我想将的背景颜色改为黑色
library(shiny)
library(shinythemes)
ui <- fluidPage(
theme = shinytheme("darkly"),
"How to change this black?")
server <- function(input, output) {}
shinyApp(ui, server)
库(闪亮)
图书馆(shinythemes)
ui如果只想
我正在使用shiny编写一个应用程序,用户可以在其中添加、编辑或复制数据。他们的想法是在临时表中输入这些数据后,将其上载到主数据库,并重置该表
我使用RSQLite制作了一个表,代码如下:
library(RSQLite)
library(pool)
library(DBI)
pool <- dbPool(RSQLite::SQLite(), dbname = "db.sqlite")
df <- data.frame( name=char
我一直在开发一个闪亮的应用程序,在我的操作按钮中,我使用render::rmarkdown()将输出保存为html,它的工作状态非常好,但是如果我想将进度添加到应用程序中,它不计算rmarkdown保存时间,这是用户的实际等待时间
我的部分问题示例:
test_fun <- function()
{
for (i in 1:15) {
incProgress(1/15)
sum(runif(10000000,0,1))
}
}
服务器脚本:
我在闪亮的应用程序中选择了输入,但它们留下了很多空白
selectInput("vicNation", "Select victim nationality: ",
choices = sort(unique(newngo$Victim.Nationality)), selected = NULL,
multiple = TRUE, selectize = TRUE, w
我喜欢新的库(shinydashboards),但我想知道是否有可能在仪表板标题中排列几个相邻的选项卡,就像普通shinydashboards库的navbarpage布局一样
似乎不可能在“dashboardPage”中使用navbarlaout,因为“navbarPage”是类似于“dashboardPage”的布局命令
尽管如此,navbarpage和dashboardPage的组合还是很有趣的
从我找到的shinydashboard示例(下面和其他示例)来看,不同的仪表板选项卡似乎只能放在
我正在尝试为条形图创建工具提示。我在layer_points上尝试了相同的代码,效果很好。但是,当我将其切换到layer_bars时,该功能不再工作。对于这种情况,工具提示不显示。有人能帮忙吗?这是我的密码:
我使用的数据包含X:索引和ss.plus:一些正数
ui.R:
服务器.R:
library(ggvis)
shinyServer(function(input, output, session){
sub.data <- reactive({
real.data[input$
我正试图根据用户在ui.R上的textInput中输入的值,更改服务器.R上的updateSelectizeInput的选项
从服务器提取。R:
使用用户输入的NewZIP更新ZIPCode
隔离({if(input$NewZIP!=“”){ZIPCode隔离应该在内部使用a被动:它使被动对输入内部的更改“不敏感”。因此,您应该尝试以下操作:
ZIPCode <- reactive({
if(input$NewZip == "") return(NULL)
input$N
这是我的服务器
我使用reactive创建了data()
我使用我创建的StructureAutomation函数调用了data()。但是,data()不是传递给StructureAutomation的
注:StructureAutomation函数在functions.R中定义。它需要一个数据集作为第一个输入参数
server.R
source("./functions.R")
options(shiny.maxRequestSize=40*1024^2)
function(inpu
我想在一个闪亮的选项卡中显示一个RMarkdown文件。问题是,只有在没有显式传递到RMarkdown文件的参数时,它才起作用。随附的文件对应于一个闪亮的应用程序,它有两个选项卡:一个带有下载按钮(按预期工作),另一个显示RMarkdown报告的输出(但不带参数)
你知道怎么做吗
接下来嵌入了2个文件。数据文件是common iris.csv
闪亮的应用程序代码(shinyMinimal.R):
库(rmarkdown)
图书馆(闪亮)
提苏伊
library(rmarkdown)
librar
如果用户单击链接,我想显示一个模式对话框。当前,如果用户单击“操作”按钮,“模式”对话框将工作
欢迎提出任何意见。谢谢
## app.R ##
server <- function(input, output) {
observeEvent(input$act_guide, {
showModal(modalDialog(
h5("Data Guidelines"),
tags$ol(
tags$li("Must have Resp_
标签: Shiny
plotlyshiny-reactivityggplotly
我创建了一个简单的绘图,当用户单击一个点时,它会在第二个选项卡上生成另一个绘图,Page_2——是否可以添加一些自定义JS,以便当用户单击该点时,它们会自动重新路由到Page_2选项卡
library(shiny)
library(plotly)
library(tidyverse)
# ui with two panes
# when you click on the outlier in the first plot
# you are routed to the second "poin
我正在尝试构建一个带有反应维度的矩阵,我希望使用observeEvent表达式更新该矩阵。我的想法如下:
library(shiny)
ui <- fluidPage(
numericInput("length", "Dimensions of the matrix", value = 5),
numericInput("a", "value for a", value = 2),
numericInput("b", "value for b", value = 2),
我正试图按照Golem的框架将Bigquery表中的数据读取到一个闪亮的应用程序中
这可以通过在App.R文件中的ui和server功能之前添加以下代码轻松完成
bq_auth(path = "xxxxxxxxxxxx.json") # authenticating biqrquery with service account json file
# Establishing connection
con <- dbConnect(
bigrqu
在shiny?中单击操作按钮后,如何获取自定义消息(该消息包括一个取决于反应值的小表)?。这是我的密码。该消息应该包括我称之为rows()的被动表
库(闪亮)
图书馆(数据集)
图书馆(rhandsontable)
库(数据表)
my_message=writeLines(“验证未成功。\n请检查以下内容
商品:\nCPCCode商品年)
#这是单击“操作”按钮时我想要的消息
#验证未成功。请检查以下商品:
#商品年
#100玉米2010
#2015年200米
#2016年300茶
#400香蕉
标签: Shiny
rstudioshiny-servershiny-reactivityshinyapps
我正在尝试使用提出的解决方案。
区别在于我希望用户选择两个文件夹,一个保存代码结果,另一个包含所有文件。
现在的问题是如何将文件保存在第二个文件夹input$fileout中。是否有方法将此路径传递给处理我的输入文件的函数?我想会有许可问题。
编辑:我想在my.analysis函数中使用dataHandler,因为我需要保存多个PNG、csv和一些特定格式的文件。最好的方法是什么?我的shinyApp没有打印任何东西,除了分析完成,下载结果
这是更新后的ui.R
library(shiny)
l
我想在Shiny中使用一个用户定义的函数来执行一个简单的计算,输出两个变量。我编写的函数在不是闪亮应用程序的一部分时可以工作。但是,当返回对象的一部分时,返回的对象(dfr)是“不在范围内”。我错过了什么
库(闪亮)
#作用----------------------------------------------------------------
转换当您使用输入时s,您需要在反应式环境中进行转换,例如reactive(),renderDataTable(),等等
在这里,您需要在react
标签: Shiny
shinydashboardpickerinput
继续这里提到的讨论:
OP有此代码,并尝试删除其中一个选择/取消选择按钮:
pickerInput(inputId = "country_select_list", label = "Select countries", choices = country_list, multiple = TRUE, options = pickerOptions(actionsBox = TRUE))
答案是利用CSS:
.bs-select-all {
dis
我有一个在RStudio中正常工作的代码
但我不喜欢这个
as.datatable()在具有renderFormattable的系统中不起作用
它表示“没有适用于'as.htmlwidget'的方法应用于类“c('datatables','htmlwidget')的对象”
服务器.R
输出$dataChangerenderFormattable(…)到renderDataTable(…)
由于在最后一行中将formattable转换为datatable,因此需要告诉呈现程序它必须处理datata
我是Shiny的新手,正在尝试使用Shiny模块构建一个完整的web应用程序。我已经复习了课程的内容
但仍然不确定如何将服务器端请求干净地路由到具有配置的给定服务器函数。e、 g
如果客户机从一个表单发送输入,该表单有两个不同的操作,我将尝试将相同操作的处理发送到另一个函数。e、 g.根据上述教程-
server <- function(input, output, session) {
datafile <- callModule(csvFile, "datafile",
我已经用R软件包“likert”创建了几个likert标尺,并希望在选中该标尺的单选按钮时,将它们中的每一个标绘为闪亮。
样本量表为:
a <- sample(rep((1:5),5))
b <- sample(rep((1:5),5))
c <- data.frame(sapply(data.frame(a), factor))
d <- data.frame(sapply(data.frame(b), factor))
scaledc <- likert(c)
我想在Rstudio中制作一个情节并与其他人分享。我已经在闪亮的网站上做了一个帐户,但当我想发布情节时,我有一个错误
找不到要部署的文件。有什么建议吗
library(shiny)
library(plotly)
ui <- fluidPage(
plotlyOutput("p")
)
server <- function(input, output, ...) {
output$p <- renderPlotly({
p <
我刚安装了Shining server,加载Shining网页时出错:
发生了一个错误。应用程序无法启动屏幕右侧的显示
然后我检查了日志,显示:
苏:忽略——保护环境,这是互斥的——登录。
致命错误:无法打开基本包
当我键入su-shinny并尝试运行R时,我还遇到了一个致命错误:无法打开基本包,因此我猜R有问题
当我是root用户或R用户时,我可以加载R,显然R工作正常
有什么想法吗?可能是路径问题吗?如果是的话,我找不到
提前谢谢
我正在开发一个闪亮的应用程序,需要有一个选项卡,向用户显示一些帮助信息。
我试图通过使用includeMarkdown函数来实现这个特性。
我有一个名为“about.Rmd”的示例标记文件,其中包含一些文本、图形和一个等式。在RStudio中编织文件将创建一个关于.md的文件
当我使用includeMarkdown函数时,该方程无法正确显示
我做得不对,但我不确定是什么
下面是闪亮代码的reprex示例:
库(闪亮)
图书馆(shinydashboard)
图书馆(降价)
#标题
header您
上一页 1 2 3 4 5 6 ...
下一页 最后一页 共 18 页