标签: shiny

当我运行闪亮的应用程序时，mainPanel 不会渲染 process_map 图像。但是，在 RStudio 查看器中，会渲染图像。我研究了这个问题，感觉问题出在 process_map() 调用上，因为我在其他调用（简单的 ggplot/plot）中没有遇到这些问题。我不认为 outputPlot/renderPlot 适合 process_map() 函数。但是，我无法确定正确的调用或功能性解决方法。

这是一个可重现的示例。预先感谢您的专业知识。

#POTENTIAL PACKAGE REQUIREMENTS
#install.packages("bupaR")
#install.packages("edeaR")
#install.packages("eventdataR")
#install.packages("processmapR")
#install.packages("processmonitR")
#install.packages("xesreadR")
#install.packages("petrinetR")


library(bupaR)
library(shiny)

#Create a data frame
key<-rep("DISCHARGEDATE", 5)
time<-seq(as.POSIXct("2017-09-20 12:07:00",format="%Y-%m-%d %H:%M:%S"),
by="min",length.out = 5)
patient<-seq(1,5)

df<-as.data.frame(cbind(key=as.character(key),time=as.character(time),
patient=as.character(patient)), stringsAsFactors = FALSE)
df$time<- as.POSIXct(df$time, format="%Y-%m-%d %H:%M:%S")

#create a simple log
s.Log<-bupaR::simple_eventlog(eventlog=df, 
                              case_id="patient",
                              activity_id="key",
                              timestamp="time") 
#shiny
ui <- fluidPage(

mainPanel(
         plotOutput("process_map")
      )
   )

server <- function(input, output) {

   output$process_map <- renderPlot({

     process_map(s.Log)

   })
}

shinyApp(ui = ui, server = …

我正在尝试做一些我认为相对简单的事情，但我似乎无法弄清楚。

我正在尝试创建一个 actionLink，当按下它时，它会为用户提供附加信息。当再次按下时，它会隐藏信息。我可以做得很好，但我正在努力解决的是更新 actionLink 的文本。

我希望它在隐藏额外信息时读取“显示附加”，然后在信息公开时读取“隐藏附加”。我已阅读以下问题/答案，但无法完全使其发挥作用。

单击后修改闪亮的操作按钮

更新actionButton的标签为闪亮

我在下面提供了一个简单的代码，尽管真实的示例会复杂得多。

感谢您的时间和帮助。

shinyApp(
  ui = shinyUI(fluidPage(useShinyjs(),
                         actionLink("button", "Show additional"),
                         hidden(
                           div(id='text_div',
                               verbatimTextOutput("text")
                               )
                           )
                         )
               ),

  server = function(input, output, session){
    observeEvent(input$button, {
      toggle('text_div')
      output$text <- renderText({"Additional"})
    })

  }
)

由于这个问题，我想将 6 个highcharter图表排成一行，就像这里一样。似乎在外面工作得很好flexdashboard

data(diamonds, package = "ggplot2")
diamonds <- diamonds[-6]

map(names(diamonds), function(x){
  diamonds[[x]] %>% 
    hchart(showInLegend = FALSE) %>% 
    hc_add_theme(hc_theme_smpl()) %>% 
    hc_title(text = x) %>% 
    hc_yAxis(title = list(text = ""))
  }) %>% 
  hw_grid(rowheight = 225, ncol = 3)  %>% browsable()

请在此处找到一个简单的示例，了解它如何在以下范围内不起作用flexdashboard：

---
title: "test"
runtime: shiny
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
---
```{r}
library(highcharter)
library(data.table)
library(ggplot2)
library(htmltools)
```


### trying to render with hw_grid

```{r}
sliderInput('ncol','ncol',min = 1,max=4,value = 2)
``` …

我下面有一个简单的 Shiny 应用程序（愚蠢的示例），它仅显示由 renderTable 生成的表格：

library(shiny)

ui <- fluidPage(
   titlePanel("Issue"),
   sidebarLayout(
    sidebarPanel(

    ),
   mainPanel(
    tableOutput("example")
  )
 )
)

server <- function(input, output) {
 output$example <- renderTable({
  data.frame(
   "a" = 1,
   "b" = paste("hello","there",sep = "\n"),
   "c" = 3
  )
 },bordered = TRUE)
}

shinyApp(ui = ui, server = server)

结果表如下所示：

我希望在渲染的表格中的“hello”和“there”之间有一个新行。换句话说，我希望“there”位于新行，但仍与“hello”位于同一单元格内。任何帮助表示赞赏。谢谢！

亲切的问候，艾斯

我有一个闪亮的网络应用程序。我想创建一个 downloadButton，单击该按钮即可下载 PowerPoint 文件。我需要在 downloadHandler 函数中添加什么才能从某个文件路径读取 PowerPoint 文件，然后将该文件下载给按下按钮的用户？

我有一个从数据帧创建的数据表，如下所示：

output$main_temp <- renderDataTable(df[,-1:-1], width = "auto")

我想用带有或不带有值的颜色。有值的单元格为绿色，没有值的单元格为红色。

我试过 ：

output$main_temp <- renderDataTable({
datatable(df[,-1:-1], options = list(
    columnDefs = list(list(targets = 6, visible = FALSE))
)) %>% formatStyle(
  names(df[,-1:-1]),
  backgroundColor = styleEqual(c(0, 1), c('gray', 'yellow'))
)
})

样本数据 ：

所需输出：

我想在我的闪亮模块中包含一些 javascript，但无论我尝试什么，javascript 都不会出现在最终的应用程序中。我究竟做错了什么？

应用程序：

    library(shiny)
    source("examplemod.R")
    ui <- fluidPage(
      tags$head(
        tags$script(src="shinyjavascript.js")
      ),
      sidebarLayout(
        sidebarPanel(
          examplemodUI("example")
        ),
        mainPanel(

        )
      )
    )

    server <- function(input, output) {
      callModule(examplemod, "example")


    }

    shinyApp(ui, server)

模块：

   examplemodUI<-function(id){
      ns <- NS(id)

      tagList(

        textOutput(ns("prb"))

      ) 
    }

    examplemod<- function(input, output, session) {

      output$prb<-renderPrint({

        input$one

        })
    }

闪亮的javascript.js

    $( document ).on("shiny:sessioninitialized", function(event) {
         Shiny.onInputChange("one", "noone");           
       });

我正在尝试创建一个闪亮的应用程序，用户可以在其中上传 .csv 文件，然后在该数据帧上应用过滤器，然后使用 ggplot2 绘制绘图。不幸的是，当我尝试从来自应该上传的 .csv 的变量创建选择输入菜单时，我偶然发现了一个问题。

要创建一个简单的示例，我们可以将diamonds数据集导出ggplot2为 .csv 文件：

write.csv(diamonds, "diamonds.csv")

然后创建闪亮的应用程序：

library(shiny)
library(shinyWidgets)
library(ggplot2)

ui <- fluidPage(
    titlePanel("test shiny"),

    # Sidebar with a slider input for number of bins
    sidebarLayout(sidebarPanel(
        fileInput('file1', 'Choose file to upload',
                  accept = c(
                      'text/csv',
                      'text/comma-separated-values',
                      'text/tab-separated-values',
                      'text/plain',
                      '.csv',
                      '.tsv'
                  )
        ),
        tags$hr(),
        pickerInput(
            inputId = "caratx",
            label = "Choose carat",
            choices = c("Select all", unique(user_data$carat)),
            multiple = TRUE
        ),
        selectInput(
            inputId = "clarityx",
            label = "Choose distance: ",
            choices …

我想在一个闪亮的应用程序中使用 的输出ggtern()。然而，由于某些限制，它似乎失败了。

它应该是这样的：

这是实际的闪亮输出：

请参阅此处查看可重现的示例：

library(shiny)
library(ggtern)

ui <- fluidPage(
        mainPanel(
           plotOutput("ggtern")
        )
)
server <- function(input, output) {
    output$ggtern <- renderPlot({
        ggtern(data.frame(x=10, y=30, z=60), aes(x, y, z)) + geom_point()
    })
}
shinyApp(ui = ui, server = server)

我是否忽略了什么？

我安装了 r 版本 3.5.3 和 RStudio 版本 1.1.463。我安装了shiny来使用命令运行一个基本的shiny应用程序install.packages("shiny")。当我运行该应用程序后，它说

请指教！