时间戳

首页 > 解决方案 > 如何恢复隐藏的 Shiny 输出的可见性？

r - 如何恢复隐藏的 Shiny 输出的可见性？

问题描述

我尝试了这个解决方案来抑制 Shiny 应用程序中的错误：

tags$style(type="text/css",
         ".shiny-output-error { visibility: hidden; }",
         ".shiny-output-error:before { visibility: hidden; }"
)

我该如何扭转这个？不幸的是，它隐藏了我的阴谋。

标签： rshinyhidden

解决方案

这是包含 Bas 补救措施的完整代码：

# Objective: app that creates Markov chain diagrams based on user input 

library(heemod)
library(diagram)
library(shiny)
library(shinyMatrix)

ui=shinyUI(fluidPage(
  titlePanel("Markov Diagram Creator"),
  fluidRow(
    sidebarPanel(
      textAreaInput("statenames_1",label = "Enter state names here...", value = "H, S1, S2, D"),
      
      hr(),
      tags$h4("Enter state probability transition matrix here: "),
      uiOutput("matrix")
      
      
    ), # end of sidebarPanel
    
    mainPanel(
      
      hr(),
      plotOutput("plot")
      
      
    ) # end of mainPanel
  )))

server=function(input,output){
  
  output$matrix <-renderUI({
    
    states <- unlist( strsplit( x=input$statenames_1, split = "[[:punct:]]" ))
    statenames <- list(states, states)
    m <- (matrix( c(0), length( states ), length( states ), dimnames = statenames ))  
    m1 <- matrixInput("matrix1", rows = list( names = T, editableNames = F ), cols = list( names = T, editableNames = F ),
                      value =  m )
    m1
  })
  
  
  mTM_List <- reactive({
    req(input$matrix1)
    mTM <- as.list( ( as.numeric( t( input$matrix1 ) ) ) )
    mTM$state_names <- ( as.character( rownames( input$matrix1  )))
    mTM
  })
  
  output$plot <- renderPlot({
    plot(do.call( define_transition,   mTM_List() ) , cex=0.75, ylim = c(0,.4))
    
  })

推荐阅读