我最近使用shinyBS创建了一个模态窗口,如中所示
bsModal(id, title, trigger, ..., size)
size参数为“小”或“大”(或不存在)
正如你所看到的,即使是大窗户也很小,东西被紧紧地塞进里面:
有没有人发现任何可能的黑客可以帮助自定义窗口的大小?我知道这个主题很旧,但自从我找到了解决方案,我就把它贴在这里,让到这里来寻找答案的人看看。
您可以通过更改CSS样式来实现这一点。在你的应用程序的恳求下,精确地说:
.modal-lg {
width: 400
我有一个闪亮的应用程序,可以生成一个图表和一个数据表,图表上的y轴链接到一个表列中的最大值,该值由一些用户输入过滤。我希望这个值是sliderInput上的最大值,所以它是动态的,因为每次用户在下拉列表中选择其他内容时,该值都会发生变化
该表根据下拉列表进行过滤,表中有一列称为“价格指数”。例如,如果用户选择“面包”,我希望最大sliderInput值根据表中“价格指数”列的最大值进行更改
下面是我的闪亮代码减去位于服务器函数上方的函数
server <- function(input,
我正在构建一个闪亮的应用程序,它试图重新创建我以前的一些报告,这些报告是我从excel或DataStudio构建的。为此,我希望在Shiny中使用fluidrow和box,而不是使用介于1和12之间的整数宽度,我希望能够使用更自定义的宽度(例如2.5),或实现此类自定义宽度的替代方法
这可能吗
非常感谢
Dylan你能分享你需要修复的代码吗?嗨@AlexSkorokhod,这里有一段代码的ui部分(这足够了吗):仪表板主体(tabItems(tabItems)(tabItems)(tabName
在shiny的帮助下,我准备了一个使用回归预测价格的Web应用程序。
但是,我希望在美学上改进前端UI。
外汇。如在滑块输入中将字体样式更改为斜体,更改主面板的背景色等。
你能告诉我怎么走吗
谢谢因为您没有提供一个可复制的示例,也没有提供您想要更改的UI元素(例如,不够详细),所以我将指导您。这将为您提供如何完成您正试图做的事情的基本概念
我有一个列表(嵌套列表)
嵌套列表中的每个列表都有不相等的行和相等的列
我想在Shining应用程序中将其显示为一个表
我可以用它在闪亮的没有平坦吗
标签: Shiny
rstudioknitrpandocr-markdown
当我运行以下ioslides\u演示时w/runtime:Shining at work Windows 7 Enterprise
---
title: "Untitled"
author: "Me"
date: "Thursday, February 05, 2015"
output:
ioslides_presentation:
logo: images/rstudio-ball.png
runtime: shiny
---
## Slide with Plot
```{r
当我将我的闪亮应用程序部署到web上时,我遇到了这个错误,它在我自己的计算机上正常工作。
错误:C堆栈使用量7980980太接近限制
数据集小于2Mb,尽管有些循环需要几秒钟才能运行。这与免费帐户版本有关吗
谢谢,很可能是您有一个简单的编码错误造成的。这与免费帐户版本无关
我在Shining中也有同样的错误,问题是我正在执行一个合并,该合并分解了其中一个数据集的大小
我建议使用断点并逐行检查代码,找出哪一行破坏了代码
我正在创建一个盒子,里面有一个图像和3个表格。这些都显示在闪亮的仪表板中
###Data
Skill = c("Wood", "Metal", "Speech", "Garden","Design", "Stats", "Farming", "Tattoos")
Score = c("+33.7%", "+14.8%", "+20.8%", "+28.17%", "+12.9%", "+19.9%", "+27.3%", "+28.1%")
no1_A = data.frame(Skill,
标签: Shiny
plotlyshinydashboard
我使用的是shiny,无法显示绘图。它以前出现过,我不知道发生了什么变化
MRE:
global.r(或将其放入server.r)
服务器.r
shinyServer(function(input, output, session) {
output$plotlyGraph <- renderPlotly({
input$regraph
print("graphing...")
return(plot_ly(list(blank = 0)))
})
})
有没有一种方法可以将HTML标记(例如h6)用于updateSelectizeInput(它适用于selectInput,请参见下面的代码)?下面的代码只需在updateSelectizeInput[object object]中使用h6(“标签”)即可显示为输出
rm(list = ls())
library(shiny)
ui =fluidPage(
selectizeInput('DropDownSelectize',choices=NULL,label=""),
selec
我不太会计算出发光体的反应性。我想使用selectInput来选择一行的名称,让表只显示该行,然后显示几列
例如,如果我的行是人(“Anna”、“Tim”、“Larry”),列是变量(“A”、“B”、“C”),我希望selectInput显示“Anna”,数据表仅显示Anna的变量A、B和C
我一直在想怎么做
ui <- shinyUI(
fluidPage(
fluidRow(
column(2, selectInput("name", "Select a Name:",
我是shinyapps.io的常客。我最近间歇性地有以下行为:
1) 灰色屏幕+'已断开与服务器的连接。。。重新加载'
2) 重新加载,并获取发生错误。。。要求创建等待通道的工作人员处于停止状态
等一下。。。(1分钟?3分钟?不太确定)然后重新加载ok。
已断开与服务器的连接。
我不认为我在做与以前完全不同的事情,但谷歌搜索这个错误消息只给了我一次点击:
我无法在本地复制该问题。我在网页上找不到重复生成错误的一组点击。我不认为它使用了太多的内存——本地运行的内存。size(max=F)返回76
我试图在Shiny中组合一个反应式UI,它根据前一个问题的答案显示或隐藏一个问题,结果取决于前两个问题的答案。我尝试使用反应式UI元素实现它,但遇到了一个问题,我认为可以这样描述:
由于Shining会自动区分屏幕上哪些是反应组件,哪些是隐藏组件,因此它只为可见组件创建值。因此,评估结果的条件失败,因为第二个问题甚至没有创建
下面是一个简化的示例:
library(shiny)
ui <- fluidPage(
radioButtons(inputId = 'one', label
我有一个在本地运行的闪亮应用程序,可以加载多个软件包,包括rgdal,它安装在我的MacOS上。当我在shinyapp.io服务器上部署它时,服务器似乎找不到rgdal安装。我已经看到其他人在rgdal上也有类似的问题,但我似乎找不到解决的方法
我已经尝试从终端重新安装rgdal软件包,但这也不起作用
在服务器上部署时出现的错误是:
Error in value[3L] : package or namespace load failed for ‘rgdal’ in dyn.load(file
我正在开发一个闪亮的应用程序,它带有shinyWidgets包,用于执行我的selectInput。
我有很多输入变量的模式,它们会导致一些错误。
我减小了选取器的大小(size参数),如果可能,只显示10个变量的第一个选项,并激活liveSearch选项。但似乎不起作用
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
pickerInput(
inputId = "somevalue1",
label =
标签: Shiny
reactivesankey-diagramnetworkd3
我有一个闪亮的仪表板,显示networkD3包中的sankeyNetwork。我正在服务器上的renderSankeyNetwork函数中创建sankeyNetwork,然后使用sankeyNetworkOutput在ui上调用它。我希望创建的sankeynetwork的高度取决于我创建的高度值
我尝试使用renderUI和uiOutput在服务器上运行sankeyNetworkOutput,但它似乎不起作用。仪表板可以正常工作,但sankeynetwork应该在什么地方都没有。我相信这可能与u
我试图在同一个dygraphOutput上绘制两个时间序列图,但数据集记录在不同的日期和时间。日期和时间并不重要,因此它们可以在相同的范围内
但我不确定如何修改xts对象中的时间序列,使其在两个数据集中都相同
另一种选择是我不使用时间序列,因为日期和时间并不重要。我是否可以使用ggplot2在传统的折线图上绘制这些曲线,并使用数据记录器中的x轴作为扫描?您可以自己索引这两个系列,而不使用时间感谢您的建议,但您能否详细说明我将运行什么类型的命令来索引这些系列?
标签: Shiny
decision-treeshiny-servermarkov
我试图在R图中显示导航。时间1或t1中的当前状态设置为val$currentstatus,t2中的下一个状态希望根据用户从支票簿中选择的操作显示在图形中。然后我想画一条线来表示这条路径。我写的代码如下
output$navigation<-renderPlot({
#initial state of X and Y
if(is.element("Within", vals$currentstatus))
x <-
我有一个闪亮的应用程序的问题。我的shinyapp没有显示图表。我有这个密码。我在闪亮的环境中看不到我的图形,我在rstudio查看器中看到
## app.R ##
library("shiny")
setwd('C:/work')
ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
dashboardSidebar(),
dashboardBody(
fluidRow(
在我的闪亮应用程序中,用户将鼠标悬停在由多个跨距组成的一些HTML输出上,如下所示:
<div id="mydiv">
<span id="span1">foo</span>
<span id="span2">bar</span>
</div>
我想获得用户当前鼠标悬停的范围的ID,作为一个闪亮的输入$。。。
我知道有很多js方法可以做到这一点,但我不知道如何与Shiny集成,例如使用shinyjs。如果我
如何在shiny中控制RenderDataTable函数中搜索框的位置
DT::renderDataTable(DT::datatable(org3, rownames = F, escape = F,
options=list(sDom = '<"top">lrt<"bottom">ip')....
DT::renderDataTable(DT::datatable(org3,rownames=F,escape=F
尝试创建一个反应图,如下所示
output$plot <- renderImage({
outfile <- tempfile(fileext = '.png')
png(outfile, width = 400, height = 300)
venn.diagram(
x = list(
T = T,
I = I
),
main = "Venn Diagram ",
filename =outfile, output=T
我有一个反应在闪亮,功能完全好,与lappy(两个街区下来,在第33行),但打破了作为一个mclappy。McLappy(1:400,函数(sim_n){:所有计划的内核在用户代码中遇到错误
我尝试了force()的mclappy,force(缩写,initial,input)的一些参数。不确定这是不是正确的想法,甚至是问题。它不起作用
我无法调试这个问题,因为Lappy版本没有问题。谢谢你的帮助
SIM_DF = eventReactive(input$Simulate,{
我不知道这是否仅仅是一个功能的bug,但是Shining中的updateCheckboxGroupInput函数工作不一致。当我用selected=FALSE更新组以取消选择所有选项时,相关的反应组件(观察者、UI元素)不会改变任何内容。我知道有很多方法可以完成这项任务,我这里的重点是说明updateCheckboxGroupInput与所选的参数缺乏一致性
下面是一个简化的示例,它使用两个操作按钮来选择/取消选择组中的所有选项,从而表示问题。使用selected=FALSE更新后,将取消选择所
我想使用以下命令来读取形状文件:readOGR(infle$datapath,input$text1),其中input$text1来自ui.R中定义的一个闪亮的textInput。我该怎么做
Minimal Code:
library(shiny)
library(caret)
library(sp)
library(rgdal)
library(raster)
library(rgeos)
library(ggplot2)
library(RStool
我一直在想,什么时候使用侧边栏布局,什么时候不使用。我被卡住了,也许这里有人能给我解释一下
谢谢。基本上使用侧边栏布局可以指定页面的布局,这意味着您的页面将一分为二;侧栏面板和主面板
在sidebarLayout内部,您可以使用sidebarPanel指定页面的侧面板的外观。简而言之,首先使用sidebarLayout,然后使用sidebarPanel
下面的示例取自文档。它说明了上述情况。如果你想让你的页面看起来像下面的应用程序,你可以使用它
library(shiny)
# Define U
这段代码运行良好。但当我只使用factor(input$mtcarsid)时,我得到一个错误,输入的长度不同(1对32) 一种解决方案是将所选变量转换为aov()调用之外的因子
输出$model
data(mtcars)
library(stats)
library(shiny)
# Define UI for application that draws a histogram
ui <- fluidPage(
# Application title
titlePanel
我已经创建了一个应用程序,用户可以浏览他的电脑上的所有文件夹,一切正常。然而,在某一点上,经过7到8个步骤(从一个文件夹到另一个文件夹,等等),它不会让我进一步导航。ShinyFiles包中是否有继承的限制
谢谢大家!
标签: Shiny
reactivesortablejs
我正在使用R的sortable包创建一个拖放式报表生成器(用户可以在其中将各种工具拖动到报表中)。我的问题是,任何给定的工具都可能被多次使用。因此,我使用sortable的克隆功能在将该工具放入报告时克隆它
挑战在于克隆的元素与原始元素具有相同的id(它只是由SortableJS创建的元素的精确副本)。不用说,这会弄乱工具中的任何被动元素,并且不会创建到新元素的任何唯一绑定
我可以在onClone事件中使用javascript更改id。但是我不知道如何创建新id的新的闪亮的反应性绑定。一种选择是
我试图在标题上获得一个自定义字段,以便人们知道上次刷新数据的时间
在我的测试运行中,当我在代码中放入一个变量时,它就可以工作了,但是当我使用textOutput时,它反而给了我HTML背景逻辑
<div id="Refresh" class="shiny-text-output"></div>
下面是我的代码:
library (shiny)
library (shinydashboard)
rm(list=ls())
header <- dashboar
标签: Shiny
R
ggplot2reactive-programming
尽管两者共享相同的反应数据帧,为什么条形图与我的应用程序中表格中显示的数据不匹配
概述
我目前正在df-a中安排数据帧,它使用单选按钮的输入,并根据数据安排数据。之后,df以两种形式显示:条形图和表格
问题是条形图不响应单选按钮,而表格响应。我希望的输出是,条形图按照单选按钮的升序/降序排列,与表格的排列方式相同
任何关于为什么会发生这种情况以及我如何解决这一问题的澄清都将不胜感激
密码
要更改绘图中的顺序,不必更改ggplot中数据的顺序。必须在绘图函数中指定它:
我已经创建了一个if-els
我想保存shinyalert警告()的输出结果(真/假)。这篇文章有助于将值打印到console(),但我无法将值本身保存为变量
library(shiny)
library(shinyalert)
ui <- fluidPage(
useShinyalert()
)
server <- function(input, output) {
shinyalert(
title = "Warning",
text = "Some warning",
我最近才开始学习
此问题概述:(1)它在R(包括脚本)中如何工作,(2)它应该如何在闪亮(3)数据中工作
问题:在此处将输入$ID写入何处,以便根据UI-输入计算列线图/列线图-分数
(1)它在R(包括脚本)中的工作原理
我正在执行,并且我已经使用-package生成了一个相当简单的程序包。可以在下面找到,并存储在nom中
当前的情况如下所示:
这是基于我的数据表p(也附在下面[作为样本])中的一些输入协变量得出的
我有一个in,它根据每个患者的个体协变量计算-分
# Where to wri
标签: Shiny
shinydashboardshinyappsshiny-reactivity
我正在使用第1节中提到的本地持久数据创建一个闪亮的应用程序。本地文件系统(本地)
我的问题是,是否可以使数据可编辑并从本地驱动器重新加载
从输入中聚合数据
任何帮助都会非常感激
formData <- reactive({
#data <- sapply(fieldsMandatory, function(x) input[[x]])
formdata <- c("Associate Name" = input$aname,"Client Name" = inp
标签: Shiny
shiny-servershinyproxy
我在AWS中部署了一个带有docker和Shinyproxy堆栈的闪亮应用程序。主要原因是shinyapps平台无法处理多个用户,因为应用程序需要进行一些计算密集型计算
然而,现在我已经部署到AWS,该应用程序运行良好。但是,如果第二个用户尝试运行该应用程序,该应用程序在第一个应用程序完成之前没有响应。这与Shinyproxy网站的直觉相反:
在Shinyproxy中,每次用户运行应用程序时,都会出现一个容器,为应用程序提供服务
所以我希望这个应用程序不会互相干扰,但事实似乎并非如此
我知道我在问一个关于R包的问题,这个问题不是很清楚(只有5个标签…其中一个来自我之前的问题),但我仍然希望我能在这里展开讨论
我已经阅读了Shinysky软件包中的textinput.typeahead文档。然而,文档中还有很多问题有待解决
我正在通过以下方法尽最大努力找出如何使用此功能:
textInput.typeahead(
id=“thti”
,placeholder=“键入“名称”或“2”
,local=data.frame(name=c(“name1”、“name2”),info=c
我正在开发一个表格,每次使用动作按钮时都会进行一些计算。表中的一列取决于其先前的值
C_new <- C_old + B_new - A_new
如中所述,我尝试使用reactiveValue保存C列的上一个值,但它不起作用。我不知道我错在哪里
这是我的密码
library(shiny)
ui <- fluidPage(
sidebarPanel(textInput("c1","Example"),
actionButton("update", "Upda
我有闪亮/渲染数据表/选项
dom = 'RCT<"clear">Blfrtip'
dom='RCTBlfrtip'
C,T和表示什么
谢谢和问候。以下是我遇到的情况:
--在ColReorder的情况下,激活功能的字母是R,ColVis字母是C,TableTools字母是T
--TableTools扩展现在已被删除。请尝试新的按钮扩展
--ColVis分机现已拆除。请尝试新的按钮扩展
标签: Shiny
shiny-serverreactive
服务器代码:
silver_state <- fread("./Data/silver_state.csv")
silver <- silver_state %>% arrange(total_drug_cost)
state_cast <- reactive({
if(input$sort == "alphabetical"){
silver <- silver
}
else if(input$sort == "descending"){
silve
我想在shinyapps.io上的闪亮应用程序(绘图)中使用自定义字体。我的Roboto-Regular.ttf在/www/目录中。这是我的app.R文件的上半部分:
dir.create('~/.fonts')
system("chmod +x ./www/Roboto-Regular.ttf")
system("cp ./www/Roboto-Regular.ttf ~/.fonts/")
system('fc-cache -f -v ~/.fonts/')
system('fc-match
我编写了一个闪亮的应用程序,其中包括添加注释的选项。为了使它们在应用程序中始终可用(也是在会话结束后),我使用CSV文件,在其中写入添加的注释,然后从中读取它们以供显示。我将整个应用程序和提到的CSV文件放在shinyapps.io上,并与用户共享。
不幸的是,我注意到每日数据被重置。白天(ECT区域)注释被正确保存和显示。当我在第二天开始的时候,我发现前一天的评论已经不见了,只是来自当前的评论。
我怀疑shinyapps.io服务器已设置为将应用程序重置为原始设置,但遗憾的是,我没有找到有关此
对我来说是完全陌生的。我刚刚收到了一份关于如何将某个函数集成到。这引起了另一个问题
问题:如何根据生成的计算分数组将数据过滤成Kaplan-Meier
我有我的数据集p,从中可以找到下面的样本
> head(p)
alder contra.pos ecs n.fjernet n.sygdom mors os.neck score score.group
1 47 Ipsi. No 22 1 0 9.63 41.08139
标签: Shiny
user-inputshiny-reactivityselectinput
我目前正在尝试构建一个应用程序来可视化员工的绩效。我正在尝试创建一个受密码保护的仪表板,其中标记为经理的用户可以查看所有其他用户统计数据,而非经理用户只能查看自己的统计数据。但是我不能让它工作。这是我到目前为止所拥有的。用户列表是与其用户名(2个变量)匹配的员工,凭据列表是用户名和密码(2个变量)。问题在于观察功能imo的某些地方。如果用户不是管理员,我希望他们的selectinput按钮锁定在自己的姓名上。会话$user==用户$user
任何指导都将不胜感激
data<-read.cs
标签: Shiny
shinyappsreact-leafletshiny-reactivityr-leaflet
在传单中构建一张地图,其中颜色比例会随着输入而变化
server <- function(input, output){
raio <- shiny::reactive({ as.data.frame(agrocorrigidoMGBA %>%
dplyr::select(lat, lon, input$cultivoTB1, ANO, MUNICIPIO, ESTA
标签: Shiny
r-markdownshiny-server
我尝试了以下代码来显示多页
资料来源:
对于index.Rmd
```{r, echo = FALSE}
library(shiny)
selectInput("dataset", "Choose Dataset:", c("cars", "iris", "mtcars"))
renderTable({
head(mtcars, 5)
})
```
[Another Shiny Do
我已经用了大约一个月了。我有一个工作应用程序。我希望我的应用程序可供我工作网络中的其他人使用。我使用主机选项使它在RStudio中工作。类似于:runApp(host=“132.207.xx.xx”,port=6215)。为了让它工作,我真的需要使用pc的静态ip。使用localhost选项不起作用
我想对闪亮的服务器也这样做。有没有办法将其配置为执行类似的操作
感谢您在/etc/shinny-server/shinny-server.conf的conf文件中提供的帮助
在服务器{}中添加以下内
我已经在AWS实例上部署了一个使用闪亮服务器的应用程序。当我运行Shiny应用程序时,它在URL XXX.XXX.XXX.XXX/8787/p/1234上启动。我需要与同事共享此URL,但我想隐藏shiny server正在运行的IP+端口号,即我想隐藏XXX.XXX.XXX/8787,或者至少一个IP/端口对他们不可见。有没有办法把这个藏起来?
我希望我的同事看到类似XXX.XXX.XXX.XXX/shinny/p/1234(端口号隐藏)或shinny/p/1234(IP+端口隐藏)的内容。非
我使用fileInput上载一个文件,其中包含本地计算机上多个文件的路径和文件名
然后,我想使用这些文件路径,并将它们直接上传到服务器,而无需用户执行任何其他交互
那么简单地说,我如何将文件上传到我已经知道其本地路径的闪亮服务器
我有下面的闪亮应用程序,其中包含2个selectInput()
库(闪亮)
shinyApp(
ui=fluidPage(
选择输入(“变量”,“变量:”,
c(“A”=“A”,
“B”=“B”,
“C”=“C”)),
uiOutput(“更多控件”)
),
服务器=功能(输入、输出){
输出$MONETCROLLS 您应该考虑为您的选择输入对象实现。
编写模块后,您可以根据需要多次调用该模块,只要每次都提供一个唯一的ID。您是否总是希望用户从每个x、y和z值中进行选择?如果是这样,我将放弃If
我有一个很长的MathJax表达式,需要在一个闪亮的应用程序中打印出来。因为表达式太长,所以需要换行。然而,它目前拒绝这样做
我强烈怀疑这与公式没有呈现为常规文本有关,也就是说,它没有呈现为字符串,而是呈现为一系列跨距,这排除了制作div内容包装的常用方法
我知道MathJax支持换行。我还可以使用KaTeX(见下面的第二个代码块)来包装UI方程,但更愿意将所有内容都保存在MathJax中,因为整个应用程序有多复杂
我所尝试的:
通过CSS,MathJax类的以下变体
单词break:打破一切;
1 2 3 4 5 6 ...
下一页 最后一页 共 18 页