Questions tagged «shiny»

我正在尝试使我的同事可以使用闪亮的应用程序，而不必运行它们甚至不必安装R。 所以我读了这个网页 ，发现了这句话： 如果您熟悉网络托管或有权访问IT部门，则可以自己托管Shiny应用程序。 在“ 共享为网页 ”部分下。 我怎样才能做到这一点？ 问题是我的公司在网络托管和安全性等方面受到某些限制，并且（暂时）不会为闪亮的服务器专业版付费。 但是上面的句子给了我希望自己做些什么来说服他们。

95 r  web-hosting  shiny  shiny-server 

我最近了解到，默认情况下，R Shiny程序对文件上传施加了最大大小限制（我不知道确切大小是多少，但我猜它是5,000 KB）。我想取消此限制。我该怎么做？关于用户上传大小的一般经验法则是什么？ 另外，这是另一个注意事项，但与此有关：我如何保存用户BY会话的国际剑联输入？例如，应用程序中将出现文件提示，用户可以在其中上载文件。然后，当用户选择要显示的文件时，他可以从已上传的文件中进行选择。如果他退出会话，该列表将清除。

95 r  shiny 

我试图弄清楚如何使用downloadButton保存具有光泽的图。包中的示例演示了downloadButton / downloadHandler保存.csv的方法。我将基于此举一个可重复的示例。 对于 ui.R shinyUI(pageWithSidebar( headerPanel('Downloading Data'), sidebarPanel( selectInput("dataset", "Choose a dataset:", choices = c("rock", "pressure", "cars")), downloadButton('downloadData', 'Download Data'), downloadButton('downloadPlot', 'Download Plot') ), mainPanel( plotOutput('plot') ) )) 对于 server.R library(ggplot2) shinyServer(function(input, output) { datasetInput <- reactive({ switch(input$dataset, "rock" = rock, "pressure" = pressure, "cars" = cars) }) plotInput …

85 r  ggplot2  shiny 

我想要两个不同的事件来触发我的应用程序中各种绘图/输出所使用的数据的更新。一个是被单击的按钮（input$spec_button），另一个是被单击的点上的点（mainplot.click$click）。 基本上，我想同时列出两者，但是我不确定如何编写代码。这是我现在拥有的： 在server.R中： data <- eventReactive({mainplot.click$click | input$spec_button}, { if(input$spec_button){ # get data relevant to the button } else { # get data relevant to the point clicked } }) 但是if-else子句不起作用 Error in mainplot.click$click | input$spec_button : operations are possible only for numeric, logical or complex types ->我可以为mainplot.click$click | input$spec_button子句使用某种动作组合功能吗？

85 r  shiny 

我有一个闪亮的服务器版本0.4.0，我想有4个小的textInput框看起来像这样： x-min x-max y-min y-max [...] [...] [...] [...] 他们现在看起来像这样： x-min [...................] x-max [...................] y-min [...................] y-max [...................] 使用此代码： textInput(inputId="xlimitsmin", label="x-min", value = 0.0), textInput(inputId="xlimitsmax", label="x-max", value = 0.5), textInput(inputId="ylimitsmin", label="y-min", value = 0.5), textInput(inputId="ylimitsmax", label="y-max", value = 1.0), 任何想法如何实现这一目标？ 编辑：我已经成功更改了代码中其他地方的内容： <style type="text/css">select#yaxis4 { height: 280px; width: 500px; }</style> [... …

77 r  shiny 

现在我几次读到反应式编程的闪亮的文档，但我不能正确理解之间的差异observeEvent和eventReactive。 该文档说： 每当您想执行响应事件的操作时，请使用observeEvent。（请注意，“重新计算值”通常不算是执行操作-有关此信息，请参见eventReactive。） .... 使用eventReactive创建仅响应事件而更新的计算值。这就像一个普通的反应式表达式，只是它忽略了来自其反应式依赖关系的所有常规失效。 在所有尝试的情况下，我都看不到使用observeEvent和之间的区别eventReactive（无论我使用什么功能，代码都可以正常工作，并且对性能没有明显影响）。 您能帮我弄清楚两者的真正区别是什么？理想情况下，我想举几个例子说明它们何时可以互换，一个何时observeEvent可以工作，但不可以eventReactive，反之亦然。

77 r  shiny  reactive-programming  shiny-server 

在服务器端的一个闪亮的应用程序中（通过RStudio），我有一个反应式，可以通过解析a的内容来返回变量列表textInput。然后在selectInput和/或中使用变量列表updateSelectInput。 我不能使它工作。有什么建议？ 我做了两次尝试。第一种方法是outVar直接使用反应堆selectInput。第二种方法是使用反应性outVar在updateSelectInput。都不行。 服务器 shinyServer( function(input, output, session) { outVar <- reactive({ vars <- all.vars(parse(text=input$inBody)) vars <- as.list(vars) return(vars) }) output$inBody <- renderUI({ textInput(inputId = "inBody", label = h4("Enter a function:"), value = "a+b+c") }) output$inVar <- renderUI({ ## works but the choices are non-reactive selectInput(inputId = "inVar", label = …

75 r  shiny  shiny-reactivity 

问题 动态创建ui元素（shiny.tag，，shiny.tag.list...）时，我经常发现很难将其与代码逻辑分开，并且通常最终会产生混乱的嵌套嵌套tags$div(...)，并与循环和条件语句混合在一起。尽管令人讨厌且难看，但它也容易出错，例如，在对html模板进行更改时。 可复制的例子 假设我具有以下数据结构： my_data <- list( container_a = list( color = "orange", height = 100, content = list( vec_a = c(type = "p", value = "impeach"), vec_b = c(type = "h1", value = "orange") ) ), container_b = list( color = "yellow", height = 50, content = list( vec_a …

9 r  shiny  templating  htmltools