我正在尝试在框()内显示Sys.info()的输出,但它显示的只是一个单词“Darwin”。
如果我str(Sys.info())
我
Named chr [1:8] "Darwin" "15.5.0" ...
- attr(*, "names")= chr [1:8] "sysname" "release" "version" "nodename" ...
那么如何将其显示为框中的文本块?它应该在服务器代码中调用并显示在textOutput中吗?
这是dashboardBody代码块,它位于ui.R
中,位于shinyUI(dashboardPage(...))中:
dashboardBody(
fluidRow(
box(
title = "Time and Date",
status = "primary",
solidHeader = TRUE, width = 4,
"Time: ", Sys.time(), br(),
"Date: ", Sys.Date(), br(),
"Time Zone: ", Sys.timezone(), br(),
Sys.info(), br()
)
)
)
server.R只是空的:
shinyServer(function(input, output) {
})
答案 0 :(得分:3)
你看到警告了吗?
charToRaw中的警告(enc2utf8(text)): 参数应该是长度为1的字符向量 除了第一个元素之外的所有元素都将被忽略
请改用:
for l in unique_ll:
df.loc[df['latlon'] == l, 'state'] = convert_to_state(l[0],l[1])