小编tso*_*kis的帖子

我需要用户点击一个按钮,可以采取不同tabPanel的navbarPage.这是一个可以实现的简单应用程序.我怎样才能做到这一点？

ui <- shinyUI(
 navbarPage('Test App',
  tabPanel('Page 1',
   p('This is the first tab'), br(),
   actionButton('jumpToP2', 'Jump to Second Tab')
  ),

  tabPanel('Page 2',
   p('This is the second tab'),
   actionButton('jumpToP1', 'Jump to First Tab')
  )
 )
)

server <- shinyServer(function(input, output){
  observeEvent(input$jumpToP2,{
    ## Switch active tab to 'Page 2'
  })

  observeEvent(input$jumpToP1,{
    ## Switch active tab to 'Page 1'
  })
})

shinyApp(ui, server)

在Shiny中使用hr()时,通常可以在UI元素下制作水平规则fluidRow(),但不能sideBarPanel()在文本下面进行.我如何制作横向规则或类似的其他内容来划分侧边栏中的文本和UI元素？

我正在尝试在桌面上创建一个快捷方式来运行 Shiny 应用程序。我坚持创建一个批处理文件来执行这个，在搜索网络后，我仍然无法让它工作。

我在 Windows 10 上。

目前，我在桌面上有一个名为“test”的文件夹，其中包含以下内容：

ui.R
server.R
run.R
test.bat

在 test.bat 中，我有： "path to R.exe" CMD BATCH "path to my r script"

我双击 test.bat，它在关闭前闪烁一个窗口。

我怎样才能让它发挥作用？非常感谢您提前。

我正在从事一个涉及从文件读取和写入元数据的项目。在 Mac 上，通过右键单击并选择文件上的“获取信息”，您可以查看和编辑某些元数据。

我找到了一种上传标签的方法（在这里找到了非常有用的工具）。现在我需要一种方法来从命令行更改文件的“注释”。

有没有办法做到这一点？

非常感谢您提前！

我有很多PDF格式的双列格式.我正在使用pdftoolsR中的包.有没有办法按照两列格式读取每个PDF而不单独裁剪每个PDF？

每个PDF都包含可选文本,并且该pdf_text函数读取文本没有问题,唯一的问题是它将读取第一列的第一行,然后继续下一列,而不是向下移动第一列.

非常感谢您的帮助.

我有一个Shiny应用程序,我想在现有的Apache服务器上运行.我是服务器的新手,并不知道从哪里开始.不幸的是,我在网上找到的大多数资源都是关于NGINX而不是Apache.

我知道这样的事情是可能的,但我不知道如何开始.如何开始在Apache服务器上托管我自己的Shiny应用程序？

这是DTR 中包的问题，适用于 Shiny 应用程序。

我注意到使用选项fixedHeader = TRUE，冻结的标题将出现在 Shiny 应用程序的所有选项卡上。这是一个说明问题的示例。只需转到“Tab2”并向下滚动，“Tab1”中的标题应该可见（不需要）。我希望标题只出现在“Tab1”上。

library(shiny)
library(DT)

data("volcano")

ui = shinyUI(navbarPage(title = 'Navbar',
  tabPanel('Table',
           fluidPage(
             fluidRow(
               column(width = 12,
                      DT::dataTableOutput('table'))
               )
           )
  ),

  tabPanel('Tab2',
           fluidPage(
             fluidRow(
               column(width = 4,
                      style = "height:1500px;background-color:#f0f0f5;border-radius:6px 0px 0px 6px;
                      box-shadow:1px 1px 8px #888888")
             )
           )
  )
))

server = shinyServer(function(input, output){
  output$table <- DT::renderDataTable(
    volcano,
    extensions = c('Buttons', 'FixedHeader'),
    options = list(
      pageLength = 100,
      fixedHeader = TRUE
    )
  )
})

runApp(list(ui=ui, server=server), launch.browser = TRUE)

我需要将某些单词转换为小写.我正在处理电影片名列表,如果它们不是标题中的第一个单词,那么介词和文章通常是小写的.如果我有矢量:

movies = c('The Kings Of Summer', 'The Words', 'Out Of The Furnace', 'Me And Earl And The Dying Girl')

我需要的是这个:

movies_updated = c('The Kings of Summer', 'The Words', 'Out of the Furnace', 'Me and Earl and the Dying Girl')

有没有使用长系列的优雅方法gsub(),如:

movies_updated = gsub(' In ', ' in ', movies)
movies_updated = gsub(' In', ' in', movies_updated)
movies_updated = gsub(' Of ', ' of ', movies)
movies_updated = gsub(' Of', ' of', movies_updated)
movies_updated = gsub(' The ', …

我不确定为什么当我使用该bar_format选项添加颜色时，我的 TQDM 进度条会分成多行。这似乎也与迭代次数有关，因为当我仅运行 10 次迭代（而不是 1389 次迭代）的相同代码时，它不会分裂（参见图片）。另外，当我运行相同的代码而不修改条形颜色时，它工作得很好。

from tqdm import tqdm
from colorama import Fore

dnames = [...]  # List of directories
cmap = [  # List of colors, same length as `dnames`
    '\x1b[38;5;231m',
    '\x1b[38;5;194m',
    '\x1b[38;5;151m',
    '\x1b[38;5;114m',
    '\x1b[38;5;71m',
    '\x1b[38;5;29m',
    '\x1b[38;5;22m',
    '\x1b[38;5;22m',
    '\x1b[38;5;22m',
    '\x1b[38;5;22m'
    # ...may include many more colors
]

# Initialize progress bar and color variable
pbar = tqdm(dnames, unit='dir')
current_color = None

for i, dname in enumerate(dnames):

    # Update color of pbar if different from last …

我想在一个带有前面值的向量中填入缺失值(不是NA,只是''!).例如,如果我将矢量定义为

vec <- c('Titanic', '', '', '', 'Donnie Darko', '', '', 'Twin Peaks', 
         'American Hustle', '')

我的输出矢量将是

'Titanic', 'Titanic', 'Titanic', 'Titanic', 'Donnie Darko', 'Donnie Darko', 
'Donnie Darko', 'Twin Peaks', 'American Hustle', 'American Hustle'

我怎样才能做到这一点？

如何删除 R 中这些讨厌的反斜杠？我搜索了网络和 stackoverflow，试图找到一种摆脱反斜杠的方法......没有运气。

我尝试了很多不同的方法，但我认为唯一可行的方法是使用正则表达式和 gsub() 删除不是数字、字母或空格的每个字符。这是我的字符串：

"_kMDItemOwnerUserID = 99kMDItemAlternateNames = ( \"(500) Days of Summer     (2009).m4v\")kMDItemAudioBitRate = 163kMDItemAudioChannelCount =     2kMDItemAudioEncodingApplication = \"HandBrake 0.9.4 2009112300\"kMDItemCodecs =     ( \"H.264\", AAC, \"QuickTime Text\")"

正如您所看到的，它非常混乱，到处都是反斜杠和引号。最终，我想做的是提取电影名称：“(500) Days of Summer (2009)”。

什么是可以匹配除数字、字母和空格之外的所有内容的正则表达式？

预先非常感谢您的帮助。