• 将标题与navbarPage中的tabPanels分开

    Is it possible to put all tabPanels in a row below the title of a navbarPage? In other words, I would like to keep the appearance of the navbarPage but on two rows: the title on the first one, and the tabPanels on the second. This would allow to "isolate" ...
  • 无法在R Shiny App中显示DataTable

    I'm hoping to display a reactive datatable for my Shiny app. I'm using renderDataTable() and have made sure that the data table is returned in the reactive function. I've noticed that the datatable renders fine outside of the Shiny App, so not a variable/c...
  • 如何从单击此传单的闪亮地图上创建的标记中提取经纬度信息?

    我正在创建一个应用程序,允许用户在地图上放置标记。我想做的是向用户显示他们删除了哪些标记,并为他们提供了下载标记的选项。虽然我可以建立另一个对象来记录历史地图点击信息,但是闪亮的必须已经存储了此信息。所以,我的问题从根本上说是: 如何从代码中的marker_map对象提取纬度信息? 要么 所有这些标记纬度信息都存储在哪里,如何获取? library(leaflet) library(shiny) ui <- fluidPage( leafletOutput("mymap") ) server <...
  • R闪亮忙碌的HTML模板

    要检查是否有闪亮的忙碌功能,是否可以在微调器下方添加文本“请稍候”,并将文本和微调器固定在屏幕中间 shiny_busy <- function() { # use &nbsp; for some alignment, if needed HTML( "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", paste0( '<span data-display-if="', '$(&#39;html&#39;).attr(&#39;class&#3...
  • 文本输出中的容器设置Shiny

    I'm trying to make a render a text output with an automatic scrollbar that is activated when the text becomes too wide or long. For the moment I achieved the scrollbar on the x-axis with container=pre as an argument in the Textoutput in the UI. 我想要的是文本输出中...
  • 捕获R Shiny中的选择输入?

    我正在尝试捕获有人在应用程序上按下“获取URL”按钮时选择的URL。 What should happen is that the event reactive() should look at the input$go_button and see that it has been pressed - it should then perform the expression to take the chosen url from the select input- unfortunately it do...
  • 每次更改控件小部件时如何阻止Shiny Leaflet地图重新居中

    我正在制作一张Shiny Leaflet地图,该地图按月显示了一组河流的水质数据。以下是我用于呈现传单的服务器代码。我想更改它,以便用户每次更改月份控件小部件时都不会重绘和重新映射地图。我不知道该怎么做。我尝试使用一个全局变量将setView语句放在if()子句中,该全局变量跟踪这是否是第一次运行,但是出现错误。我尝试完全删除setView语句,但是地图仍然重绘到河流和数据的默认边界。 ui <- fluidPage( sidebarLayout( sidebarPanel( sli...
  • 使用R中的传单映射相交数据

    I would be appreciated for any help, got the code If I select all the options ( >3&<=4 and >4&<=5 and >5&<=6) I do not want to see anything on the map since there is nothing common, many thanks in advance library(dplyr); library(leaflet) data(quakes) qu...
  • 带有ggplot2和闪亮R的多个条形图

    我正在尝试使用R Shiny上的Ggplot为客户满意度数据集绘制多个条形图。满意度从1到5不等,其中1是最低,而5是最高。外观如下:(这是原始数据集的示例) Satisfaction_Level <- c(4 ,4 ,5 ,5 ,3 ,4 ,4 ,4 ,4 ,5 ,1 ,4 ,1 ,3 ,4 ,4 ,1 ,4 ,4 ,1 ,4 ,4 ,4 ,4 ,2 ,4 ,2 ,4 ,3 ,1) Location <- c("C" ,"C" ,"C...
  • 获取活动的TabName

    I want to get active tabname. I am aware it is possible using id parameter in sidebarmenu and then call it using input$id in server. I can't use this functionality as I have customised sidebar which does not return selected (or active) tab name. Hence I wa...
  • R Shiny XTS-使用ggplot更改默认工具提示的名称

    我有一个具有日期值的XTS对象,我正在使用ggplot和Shiny应用程序显示结果。 但是我想在鼠标在线时更改工具提示的默认名称。 从: 指数:2020-03-19 价值:70 至: 日期:2020-03-19 星期三:70 XTS代码: data<-rnorm(10) dates <- seq(as.Date("2016-01-01"), length =10, by = "days") xtsMyData <- xts(x = data, order.by = dates) 情节: r...
  • 从R中的另一个工作表调用图形

    我的Shiny应用程序越来越长,因为我正在许多面板上绘制各种图形。因此,为了对某些组织有所帮助,我想知道是否有可能将这些图的代码移动到单独的r脚本中,并从原始r脚本中调用这些图。 更复杂的是,我要显示的所有图形都需要用户从Shiny应用程序输入。 是否可以使用R中另一个脚本中的代码来绘制图形,如果可以,如何绘制图形?另外,由于将有多个图,是否可以指定新r脚本中的哪个图将位于指定位置,或者我需要为每个图创建一个单独的r脚本(这将违背加强组织监督)? 我已经编写了一些简化的,可复制的代码(请参见下文),希望可以...
  • 闪亮模块之间的通讯

    我以闪亮的方式创建了一个应用程序(示意性示例),其中包含一个通讯无法正常工作的模块。 The ui shall create some Data (DataPack) (a list with so far two elements) by clicking the "Load"-button. The data shall then be plotted via the module whereas the x-axis range of each module's plot shall be contr...
  • 如何在闪亮的环境中更改情节的高度

    如下图所示,当在侧栏中选择多个县时,我的图的高度保持不变。这使图太拥挤,以致标签变得不可读。我想根据边栏中选择的县数来更改地块的高度。我怎样才能做到这一点? 下面,请参阅我认为需要修改的部分代码。 UI元素 mainPanel(plotOutput("workforce_plot"), 服务器元素 workforce_plot <- reactive({ ggplot(workforce_data(), aes(x =Age_Group, y = Percentage, fill=Count...
  • R Shiny updateSelectizeInput抛出错误且未更新

    我尝试创建两个闪亮的下拉菜单-一个下拉列表列出州,然后过滤第二个下拉列表,列出列出了所选州的所有县。以下代码可正常运行,但更改状态时各县不会更新。 用户界面 pageWithSidebar( headerPanel("My chart"), sidebarPanel( uiOutput("sel_state"), uiOutput("sel_county") ), mainPanel( tableOutput("table") ) ) 服务器 function(input, outp...
  • 如何在闪亮的上下文中将ggplot转换为可绘制的图

    使用下面的代码,我可以在一个闪亮的应用程序中创建所需的线条图。我想把情节转变成一个情节。我尝试了以下代码,但收到以下错误:“ plotlyOutput $ line_60 <-renderPlotly({中的错误:   “关闭”类型的对象不可子集化”。 linedataPlot_60 <- reactive ({ ggplot(linedata_60(), aes( x = Year, y = Percentage, ...
公告

欢迎访问 码农俱乐部  点击这里设置您的邮箱  可以接收站内跟帖、回复邮件提醒,不错过任何一条消息。

关注公众号订阅更多技术干货! 码农俱乐部