使用Shiny应用中的verbatimTextOutput和shinyDirChoose时，可以看到目录路径。

huangapple
go评论90阅读模式
英文:

Seeing the directory path when using verbatimTextOutput and shinyDirChoose in a Shiny app

问题

以下是您要翻译的内容：

"I have an MRE of my app, where I am trying to choose a directory for importing csv files. I would like to have the path for a chosen directory shown in a text box below the button. So far, I get character(0) before I select a directory, and after I choose a directory I get the error: object of type 'environment' is not subsettable. Does anyone have any ideas what may be causing this? Thanks!"

"UPDATE: I have it working now that so I can see the pathway after a directory is chosen, but before I choose a directory I see this error: $ operator is invalid for atomic vectors. Does anyone have another way for me to set this up so that I don't get this error?"

请注意，代码部分未被翻译。

英文:

I have an MRE of my app, where I am trying to choose a directory for importing csv files. I would like to have the path for a chosen directory shown in a text box below the button. So far, I get character(0) before I select a directory, and after I choose a directory I get the error: object of type 'environment' is not subsettable. Does anyone have any ideas what may be causing this? Thanks!

  1. #This is the test page for step 1: set the import and export directories
  3. library(shiny)
  4. library(shinyFiles)
  7. ########## User interface ##########
  8. ui = fluidPage(
  9.   
  10.   h5(strong('Select target directory for importing raw data:')),
  11.   
  12.   
  13.   shinyDirButton('folderImp', 
  14.                  'Directory Selection', 
  15.                  'Please select a folder'),
  16.   
  17.   verbatimTextOutput("dir_input_text"),
  18.   
  19.   h5(strong('Select target directory for exporting analysis results:')),
  20.   
  21.   shinyDirButton('folderExp', 
  22.                  'Directory Selection', 
  23.                  'Please select a folder'),
  24.   
  25.   verbatimTextOutput("dir_output_text")
  26.   
  27. )#close ui, fluidpage
  30. ########## Server logic #########
  32. server = function(input, output, session) {
  33.   
  34.   #### Input for user browse and data upload ####
  35.   
  36.   switch(Sys.info()[['sysname']],
  37.          Windows= {main_dir <- "c:/Users"},
  38.          Linux  = {main_dir <- "/usr"},
  39.          Darwin = {main_dir <- "~"}) #R script running on a mac
  40.   
  41.   shinyDirChoose(input, 
  42.                  'folderImp', 
  43.                  session=session,
  44.                  roots=c(main = main_dir),
  45.                  filetypes = c('csv'),
  46.                  hidden = FALSE,
  47.                  allowDirCreate = FALSE)
  48.   
  49.   input_pathway <- reactive({parseDirPath(session, input$folderImp) })
  51.   output$dir_input_text <- renderPrint({ input_pathway() })
  52.   
  53.   
  54.   #### Export directory for analysis results ####
  55.   
  56.   shinyDirChoose(input, 
  57.                  'folderExp', 
  58.                  session=session,
  59.                  roots=c(main = main_dir),
  60.                  filetypes = c('csv'),
  61.                  hidden = FALSE,
  62.                  allowDirCreate = FALSE)
  63.   
  64.   output_pathway <- reactive({parseDirPath(session, input$folderExp) })
  65.   
  66.   output$dir_output_text <- renderPrint({ output_pathway() })
  67.   
  68. } # close server
  70. shinyApp(ui = ui, server = server)

UPDATE
I have it working now that so I can see the pathway after a directory is chosen, but before I choose a directory I see this error:
$ operator is invalid for atomic vectors. Does anyone have another way for me to set this up so that I don't get this error?

  1.   shinyDirChoose(input, 
  2.                  'folderImp', 
  3.                  session=session,
  4.                  roots=c(main = main_dir),
  5.                  filetypes = c('csv'),
  6.                  hidden = FALSE,
  7.                  allowDirCreate = FALSE)
  8.   
  9.   input_pathway <- reactive({ input$folderImp })
  11.   output$dir_input_text <- renderText({ paste(input_pathway()$path[-1], collapse = "/") })
  12.   
  13.   
  14.   #### Export directory for analysis results ####
  15.   
  16.   shinyDirChoose(input, 
  17.                  'folderExp', 
  18.                  session=session,
  19.                  roots=c(main = main_dir),
  20.                  filetypes = c('csv'),
  21.                  hidden = FALSE,
  22.                  allowDirCreate = FALSE)
  23.   
  24.   output_pathway <- reactive({ input$folderExp })
  25.   
  26.   output$dir_output_text <- renderText({ paste(output_pathway()$path[-1], collapse = "/") })

答案1

得分: 1

output$dir_input_text <- renderText({ paste(input_pathway()$path[-1], collapse = "/") }) 需要您的反应性 input_pathway() 方法返回一个类似列表的对象，该对象具有一个名为 "path" 的字段，可以通过 $ 运算符访问。在选择文件路径之前，“path”字段为NULL。同样适用于 output$dir_output_text <- renderText({ paste(output_pathway()$path[-1], collapse = "/") }) 为了避免错误，您应该检查 input_pathway() 和 output_pathway() 方法是否返回一个实际具有 "path" 字段的对象。

英文:

output$dir_input_text <- renderText({ paste(input_pathway()$path[-1], collapse = "/") }) expects your reactive input_pathway() method to return an list-like object that has a field called "path" that can be accessed via the $ operator. Until you select a file path, the "path" field is NULL. The same is true for output$dir_output_text <- renderText({ paste(output_pathway()$path[-1], collapse = "/") }) in order to avoid the error you should check to see if input_pathway() and output_pathway() methods return an object that actually has a "path" field.

  1. #This is the test page for step 1: set the import and export directories
  3. library(shiny)
  4. library(shinyFiles)
  7. ########## User interface ##########
  8. ui = fluidPage(
  9.   
  10.   h5(strong('Select target directory for importing raw data:')),
  11.   
  12.   
  13.   shinyDirButton('folderImp', 
  14.                  'Directory Selection', 
  15.                  'Please select a folder'),
  16.   
  17.   verbatimTextOutput("dir_input_text"),
  18.   
  19.   h5(strong('Select target directory for exporting analysis results:')),
  20.   
  21.   shinyDirButton('folderExp', 
  22.                  'Directory Selection', 
  23.                  'Please select a folder'),
  24.   
  25.   verbatimTextOutput("dir_output_text")
  26.   
  27. )#close ui, fluidpage
  30. ########## Server logic #########
  32. server = function(input, output, session) {
  33.   
  34.   #### Input for user browse and data upload ####
  35.   
  36.   switch(Sys.info()[['sysname']],
  37.          Windows= {main_dir <- "c:/Users"},
  38.          Linux  = {main_dir <- "/usr"},
  39.          Darwin = {main_dir <- "~"}) #R script running on a mac
  40.   
  41.   shinyDirChoose(input, 
  42.                  'folderImp', 
  43.                  session=session,
  44.                  roots=c(main = main_dir),
  45.                  filetypes = c('csv'),
  46.                  hidden = FALSE,
  47.                  allowDirCreate = FALSE)
  48.   
  49.   input_pathway <- reactive({ input$folderImp })
  50.   
  51.   output$dir_input_text <- renderText({ 
  52.     ip <- input_pathway()
  53.     ifelse('path' %in% names(ip),
  54.            paste(ip$path[-1], collapse = "/"),
  55.            '')
  56.   })
  57.   
  58.   
  59.   #### Export directory for analysis results ####
  60.   
  61.   shinyDirChoose(input, 
  62.                  'folderExp', 
  63.                  session=session,
  64.                  roots=c(main = main_dir),
  65.                  filetypes = c('csv'),
  66.                  hidden = FALSE,
  67.                  allowDirCreate = FALSE)
  68.   
  69.   output_pathway <- reactive({ input$folderExp })
  70.   
  71.   output$dir_output_text <- renderText({ 
  72.     op <- output_pathway()
  73.     ifelse('path' %in% names(op),
  74.            paste(op$path[-1], collapse = "/"),
  75.            '')
  76.   })
  77.   
  78. } # close server
  80. shinyApp(ui = ui, server = server)

huangapple
  • 本文由 发表于 2023年5月30日 04:24:31
  • 转载请务必保留本文链接：https://go.coder-hub.com/76360146.html
  • r
  • shiny
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定