Question

这就是我所拥有的，我认为问题是ui.R首先运行，所以函数progs（）没有被定义（或者我不知道如何做反应函数）。我的错误看起来像这样：

lapply错误（obj，function（val）{：找不到函数＆＃34; progs＆＃34;

我的代码如下：

ui.R

library(shiny)
progs <- list.files("C:/Users/OIT-Classroom/Desktop/ODP/Report 1/aggregate/")
progs <- gsub('.{6}$', '', progs)

shinyUI(bootstrapPage(
  tabsetPanel(id="Reports",
              tabPanel("Report 1",
                       sidebarPanel(
                         p("text"),
                         radioButtons("choices", choices = progs(), label = "Programs")
                      ),
                       mainPanel(
                         tableOutput('age')
                       )
              ),
              tabPanel("Report 2",
                       sidebarPanel(
                         p("text"),
                         radioButtons("choices", choices = progs(), label = "Programs")
                       ),
                       mainPanel(
                         tableOutput('psc5'),
                         plotOutput('psc5p'),
                       )
              ) 
  )
))

server.R

library(shiny)

shinyServer(function(input, output, session) {

  progs <- reactive({
    progs <- list.files(paste("C:/Users/OIT-Classroom/Desktop/ODP/", input$Reports, "/aggregate/", input$choices, ".RData", sep = ""))
    gsub('.{6}$', '', progs)
  })

  output$age <- function(){
    paste(knitr::kable(
      age, format = 'html', output = FALSE,
      table.attr="class='data table table-bordered table-condensed'"),
      sep = '\n')
  }
  output$psc5 <- function(){
    paste(knitr::kable(
      psc5, format = 'html', output = FALSE,
      table.attr="class='data table table-bordered table-condensed'"),
      sep = '\n')
  }
  output$psc5p <- renderPlot({
    plot(psc5[, 2:3], type="b", ylim=c(0, 40), ylab="", xaxt="no", xlab="", col="red", main="Figure 2: Problem Severity Comparison of Mean Scores for Children Ages 5+", cex.main=0.8, cex.axis = 0.8, font.main = 1, family="serif")
    par(new = T)
    axis(1, at=1:2, labels=c("Intake", "Discharge"), col.axis="black", las=1, cex.axis =0.8)
  })
})

Answer 1

我假设您正在尝试自动更新单选按钮的选项。您尝试调用的progs函数未在UI脚本中定义，因此您的错误来自此处。尝试在服务器脚本中的某处使用observe和updateRadioButtons函数。可能看起来像这样：

observe({
  updateRadioButtons(session, "choices", choices = progs())
})

如果您进入UI脚本并将单选按钮定义的progs()部分更改为progs，那么它应该可以解决您在开始时定义的progs变量。 UI。我不能测试所有这些，因为我没有文件，但它应该让你接近。

如何在RadioButtons中选择在Shiny中反应？

1 个答案: