Question

是新手，我目前正在构建一个基本的应用程序，该程序可充当人们的计数器，用于更新远程Google工作表，我已将问题缩小为函数dataTableOutput()及其返回：Error: argument is not interpretable as logical

我已经搜索了Shiny的功能描述站点，以及此处和教程中的其他（某种程度上）相关的问题。当我删除错误代码后，该错误代码消失了，但应用程序崩溃了，我还确保更新了所有软件包以及正在使用的R版本。我也在anaconda的IDE上运行它。

fields <- c("Pool", "Table Tennis", "Arcade Games",
            "Console Games", "Board Games", "Air Hockey",
            "Cornhole")

Maindata <- c("date","semester", "games", "num")

semesters <- c("Spring", "Summer", "Fall")

ui <- fluidPage(

  titlePanel("Corner Pocket Customer Counter"),
    sidebarLayout(

      sidebarPanel(

        dataTableOutput("Game_Table"),

        checkboxGroupInput(
          inputId = "games",
          label = "Games",
          choices = fields, 
          inline = FALSE),

        numericInput(
          inputId = "num",
          label = "Number of Customers",
          min = 0,
          max = 1000,
          value = 0,
          step = 1),

        dateInput(
          inputId = "date",
          label = "Today's Date",
          value = Sys.Date()),

        checkboxGroupInput(
          inputId = "semester",
          label = "Semester",
          choices = semesters, 
          inline = FALSE),

        actionButton(
          inputId = "submit",
          label = "Submit")
        ),
      mainPanel()
      )
  )

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

  formData <- reactive({
    data <- sapply(Maindata, function(x) input[[x]])
    data
  })


  observeEvent(input$submit, {
    saveData(formData())
  })

  output$Game_Table <- renderDataTable({
    input$submit
    loadData()
  })

}
  table <- "Game_Table"

  saveData <- function(data) {
    # Grab the google sheet
    table %>% gs_title("Sheet Key") %>% gs_add_row(input = data)
  }

  loadData <- function() {
    table %>% gs_title("Sheet Key ") %>% gs_read_csv
  }



shinyApp(ui = ui, server = server)

基本上，输出应该只是对Google工作表的更新，包括该人输入的计数，日期，他们所做的一切等。我不确定dataTableOutput()会抛出什么逻辑。 / p>

Answer 1

我已经解决了逻辑问题，dataTableOutput（）是正确的，该问题是由于无法正确访问Googlesheet标题而引起的，我现在可以阅读它，只需列出特定于工作表。一旦我为我的私人工作表提供了对Shiny的Googlesheets访问权限，便可以使用。确保gs_title()中包含正确的工作表名称（标题）！

带有数据表输出的错误代码：参数不可解释为逻辑

1 个答案: