分类导航

程序问答发布时间：2022-06-02 发布网站：大佬教程 code.js-code.com

大佬教程收集整理的这篇文章主要介绍了书签在模块中的shinyFiles 中的shinyDirChoose 出错，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决书签在模块中的shinyFiles 中的shinyDirChoose 出错？

开发过程中遇到书签在模块中的shinyFiles 中的shinyDirChoose 出错的问题如何解决？下面主要结合日常开发的经验，给出你关于书签在模块中的shinyFiles 中的shinyDirChoose 出错的解决方法建议，希望对你解决书签在模块中的shinyFiles 中的shinyDirChoose 出错有所启发或帮助；

我尝试将书签与 shinyDirbutton() 中的 shinyfiles 一起使用，应用程序正在运行，但书签状态不起作用，我不断收到错误

你知道如何解决这个问题吗？

Warning in if (!is.na(attribvalue)) { :
  the condition has length > 1 and only the first element will be used
Warning in charToRaw(enc2utf8(text)) :
  argument should be a character vector of length 1
all but the first element will be ignored

library(shiny)
library(shinyfiles)

path_ui <- function(ID){
    ns <- NS(ID)
    tagList(
      shinyDirbutton(ns("file"),"Upload",falSE),verbatimtextoutput(ns("test"))
    )
}

  
path_server <- function(input,output,session) {
  ns <- session$ns
  vol <- getVolumes()()
  
  shinyDirChoose(input,"file",session = session,root = vol)
  
  userfile <- reactive({
    valIDate(need(input$file,message = falSE))
    input$file
  })
  
  path_upload <- reactive({
    req(is.List(input$filE)) # fix the problem
    path <- parseDirPath(vol,userfile())
    return(path)
  })
  
  output$test <- renderPrint({
    req(length(path_upload())>= 1)
    path_upload()
  })
}

  
ui <- function(request){
  fluIDPage(
  h4("This is test"),path_ui("path_test"),bookmarkbutton()
  )
}

server <- function(input,session) {
  callModule(path_server,"path_test")
}

shinyApp(ui,server,enableBookmarking = "server")