Ошибка: неиспользуемые аргументы в Shiny (R)

Question

Я хотел бы начать с изменения нескольких компонентов одного из основных блестящих примеров приложений, но я получаю эту ошибку:

ERROR: unused arguments (fluidRow(column(4, tags$hr(), 
verbatimTextOutput("out1"), selectInput("in1", "Options", choices = 
state.name, multiple = TRUE, selectize = FALSE))), fluidRow(column(4, 
tags$hr(), verbatimTextOutput("out2"), selectInput("in2", "Options", 
choices = state.name, multiple = TRUE, selectize = FALSE)))) 

Вот мой код:

ui.R

library(shiny) 
library(shinythemes) 

shinyUI(fluidPage(theme=shinytheme("flatly"), 
    #Application Title 
    headerPanel("States"), 
    br(), 
    fluidRow(
    column(4, 
      tags$h4("Choose One or Multiple States")) 
)), 
    fluidRow(
    column(4, 
      tags$hr(), 
      verbatimTextOutput('out1'), 
      selectInput('in1', 'Options', choices = state.name, multiple = TRUE, selectize = FALSE) 
      ) 
), 
    fluidRow(
    column(4, 
      tags$hr(), 
      verbatimTextOutput('out2'), 
      selectInput('in2', 'Options', choices= state.name, multiple = TRUE, selectize = FALSE)) 
)) 

===================================== ==========

сервер.R

sessionInfo() 
install.packages("shiny") 
library(shiny) 

View(headcount) 
attach(headcount) 
headcount.crn=as.array(CRN) 


shinyServer(function (input, output, session) { 
    output$out1 <- renderPrint(input$in1) 
    output$out2 <- renderPrint(input$in2) 
    }) 

Answer 1

Эта ошибка обычно означает, что вы испортили запятую или скобки где-то. В вашем случае, есть один слишком много закрывающих скобки ()) в конце первого fluidRow, который замыкая fluidPage преждевременно

Answer 2

В моем случае это идет от двусмысленности, когда я загрузил два пакета с использованием библиотеки (PACKAGENAME) как имеющая то же имя функции. Таким образом, любой, кто закончил здесь отладку, также может рассмотреть эту возможность в случае, если написанное выше не так.