Tag: 有光泽

如何更改Shiny中的“超过最大上传大小”限制并保存用户文件input？

我最近了解到，R Shiny程序默认情况下会对file upload进行最大限制（我不知道大小是什么，但是我猜测它是5,000 KB）。 我想删除这个限制。 我该怎么做，对于用户上传的大小，有什么一般的经验法则？ 另外，这是另一个说明，但相关：如何保存由用户BY会议fieinput？ 例如，应用程序中会有文件提示，用户可以在其中上载文件。 然后，当用户select要显示的文件时，他可以从他上传的文件中select。 如果他退出会议，清单将被清除。

使用R shiny中的renderText（）输出多行文本

我想用一个renderText()命令输出多行文本。 但是，这似乎不可能。 例如，从shiny的教程中我们已经截断了server.R代码： shinyServer( function(input, output) { output$text1 <- renderText({paste("You have selected", input$var) output$text2 <- renderText({paste("You have chosen a range that goes from", input$range[1], "to", input$range[2])}) } ) 并在ui.R代码： shinyUI(pageWithSidebar( mainPanel(textOutput("text1"), textOutput("text2")) )) 基本上打印两行： You have selected example You have chosen a range that goes from example range. 是否有可能将两行output$text1和output$text2到一个代码块？ 迄今为止，我的努力都失败了， output$text = renderText({paste("You have selected […]

在更改标签面板时显示Shiny正忙（或加载）

（问题描述后面的代码） 我正在使用Shiny制作一个Web应用程序，而我正在执行的一些R命令需要几分钟才能完成。 我发现我需要向用户提供Shiny正在工作的一些指示，或者他们会不断更改我在侧面板中提供的参数，这只会导致Shiny在初始运行完成后react native地重新启动计算。 于是，我创build了一个条件面板，显示一个“加载”消息（称为模态），其中包括以下条件（感谢Joe Cheng在Shiny Google小组的条件语句）： # generateButton is the name of my action button loadPanel <- conditionalPanel("input.generateButton > 0 && $('html').hasClass('shiny-busy')"), loadingMsg) 如果用户保持在当前选项卡上，则按预期工作。 但是，用户可以切换到另一个选项卡（可能包含一些需要运行一段时间的计算），但是加载面板会立即出现并消失，而R则在计算时突然消失，然后仅在它完成了。 由于这可能难以形象化，我提供了一些代码在下面运行。 你会注意到，点击button开始计算将产生一个很好的加载消息。 然而，当你切换到标签2，R开始运行一些计算，但没有显示加载消息（也许Shiny不注册为繁忙？）。 如果您再次按下button重新开始计算，加载屏幕将正确显示。 我希望切换到正在加载的选项卡时显示加载消息！ ui.R library(shiny) # Code to make a message that shiny is loading # Make the loading bar loadingBar <- tags$div(class="progress progress-striped active", tags$div(class="bar", style="width: […]

如何组织大型Rshiny的应用程序？

什么是组织更大的shiny应用程序的最佳做法？ 我认为最好的R实践也适用于R Shiny。 最佳R实践在这里讨论： 如何组织大型R程序 链接到谷歌的R风格指南： 风格指南 但是，我可以采用R Shiny上下文中的独特技巧和窍门，以使我的R代码看起来更好（更易读）。 我正在考虑像这样的事情： 在R闪存中开发面向对象的程序devise 在server.R哪些部分应该来源？ 包含降价文件，图片，xml和源文件的项目的文件层次结构 例如，如果我在每个tabPanel使用navbarPage和tabsetPanel ，那么在添加几个UI元素后，我的代码开始显得很杂乱。 示例代码： server <- function(input, output) { #Here functions and outputs.. } ui <- shinyUI(navbarPage("My Application", tabPanel("Component 1", sidebarLayout( sidebarPanel( # UI elements.. ), mainPanel( tabsetPanel( tabPanel("Plot", plotOutput("plot") # More UI elements.. ), tabPanel("Summary", verbatimTextOutput("summary") # And some more… ), tabPanel("Table", […]

tooltip上shiny的R？

我只是想在我的shiny的R应用程序中有一个工具提示。 有没有简单的方法来实现呢？ 现在，我正在创build一个密度图，我想要一个简单的工具提示，将鼠标hover在YEAR上方，显示“点击此处滑动数年”。 用户界面： library(shiny) shinyUI(pageWithSidebar( headerPanel("Density Map"), sidebarPanel( sliderInput("slider_year", "YEAR:", min = 2001, max = 2011, value = 2009, format="####", locale="us" ) ) ), mainPanel( plotOutput("event_heatmap_map", width = "100%", height = "100%") ) )) 服务器代码： library(shiny) library(ggmap) library(ggplot2) mydata <- read.csv("/var/shiny-server/www/dMetrics.csv") shinyServer(function(input, output) { output$event_heatmap_map <- renderPlot(width = "auto", height = 640,{ slice_year <- […]

shiny的4个小文本input框并排

我有一个shiny的服务器版本0.4.0，我想有4个小文本input框看起来像这样： 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> [… which links to this later […]

Rshiny：function运行时显示“加载…”信息

我使用Shiny GUI R软件包。 我正在寻找一种方法来显示消息，如“loading …”在actionButton被按下后。 该函数需要几分钟才能执行，所以我需要以某种方式通知用户该button实际上触发了一些事件。 现在server.R代码如下所示： DATA <- reactive({ if(input$DownloadButton>0) { RunDownload() } else { NULL } }) output$Download <- renderText({ if(NROW(DATA())>0) { paste0(Sys.time(),": ",NROW(DATA()), " items downloaded") } else { '' } }) actionButton()是一个从互联网上下载数据的函数。 input$DownloadButton是actionButton。 所以按下button后，用户等待几分钟，然后才看到一条消息，说明下载成功。 我想在按下actionButton之后显示一条消息“正在加载…”，然后执行另一条消息，如paste0(Sys.time(),": ",NROW(DATA()), " items downloaded")结束。