小编Den*_*tes的帖子

我正在使用 Python 和 sqlalchemy 来清空存储在 SQL Server 中的表。看起来作为函数参数给出的 SQL 查询session.execute根本不执行。该表仍然包含数据。

当我在 SQL Server MS 中打印并运行相同的查询时，它完全按照预期执行。

感谢帮助！

tableName = 'someTable'
engine = sqlalchemy.create_engine('connectionString')
Session = scoped_session(sessionmaker(bind=engine))
currentSession = Session()
query = 'IF ('
                       'EXISTS ('
                       'SELECT * FROM INFORMATION_SCHEMA.TABLES '
                       'WHERE TABLE_SCHEMA = \'dbo\' '
                       'AND TABLE_NAME = \'%s\')) '
                       'BEGIN '
                       'DELETE FROM [database].[dbo].[%s] '
                       'END' % (tableName,tableName)
session.execute(query)
print(query)

我想使用 R Studio 创建基于传单地图的动画地图。以前，这是使用 saveHTML 与 ggmaps 和 ggplot 一起使用，但函数 saveHTML 无法制作传单地图的图像，因此无法制作显示动画地图的 html 页面。

任何建议如何将传单地图保存为图像，或如何使用 saveHTML 获取动画地图？

数据看起来像：

long = c(-73.95,-74,-74.05)
lat = c(40.8, 40.7, 40.4)
minute = c(15, 0, 18)
tripData <- data.frame(long,lat,minute)

到目前为止的代码：

library(animation)
library(leaflet)

plotLeaflet <- function(.minute){
  df = subset(tripData, minute == .minute);
  (m2 <- m %>% addCircles(data = df));
  print(m2);
}

# Create animation
range_m = 0:59

oopt <- animation::ani.options(interval = 0.1)

FUN3 <- function() {
  mapply(function(x) {
    plotLeaflet(x);
    animation::ani.pause()
  },range_m)
}


saveHTML(FUN3(), autoplay = FALSE, …

我想在 modalDialog 中显示图像，但 R 不渲染。

以下代码仅显示指向 Google 徽标的链接，而不显示 Google 徽标本身：

服务器.R：

observeEvent(input$button, {
    showModal(modalDialog(
      title = "Title",
      '<img>https://www.google.nl/images/branding/googlelogo/2x/googlelogo_color_272x92dp.png</img>',
      easyClose = TRUE,
      footer = NULL
    ))
  })

用户界面

actionButton(inputId ="button", label = "Click me")

我知道可以很容易地使用命令memory.limit（size = N）增加R的内存限制。如果我尝试将其减小到小于N的值，则出于显而易见的原因，我会收到错误消息：

Warning message:
In memory.limit(size = 10) : cannot decrease memory limit: ignored

有没有办法减少内存限制的前期运行代码（或作为第一个命令）？我出于培训目的（例如如何处理内存问题？）来实现此目的。

简而言之，问题是：当完全加载到闪亮 Web 应用程序的 UI.R 中时，如何运行 Plotly 动画？

我正在尝试使用Plot.ly 的累积动画向我的 R Shiny Web 应用程序添加动画。我想在 UI 中加载时执行动画绘图，但找不到自动运行绘图的方法。

下面是一个闪亮的 Web 应用程序的工作示例，其中包括一个 Plot.ly 累积动画，该动画在单击“播放”按钮时运行，并且应该自动运行。

非常感谢帮助！

界面R

pageWithSidebar(
  sidebarPanel(
    'some controls'
  ),
  mainPanel(
    plotlyOutput("frontPage", width = "100%")
  )
)

服务器R

library(shiny)
library(dplyr)

function(input, output, session) {
  accumulate_by <- function(dat, var) {
    var <- lazyeval::f_eval(var, dat)
    lvls <- plotly:::getLevels(var)
    dats <- lapply(seq_along(lvls), function(x) {
      cbind(dat[var %in% lvls[seq(1, x)], ], frame = lvls[[x]])
    })
    dplyr::bind_rows(dats)
  }

  d <- txhousing %>%
    filter(year > 2005, city %in% c("Abilene", …

我正在plotlyR中使用该软件包来构建R Shiny仪表板。我想按自定义顺序（非字母顺序，非降序/升序）订购饼图。由于某些原因，我找不到实现该目标的方法。

帮助将不胜感激！

# Get Manufacturer
mtcars$manuf <- sapply(strsplit(rownames(mtcars), " "), "[[", 1)

df <- mtcars %>%
  group_by(manuf) %>%
  summarize(count = n())

# Create custom order
customOrder <- c(df$manuf[12:22],df$manuf[1:11])

# Order data frame
df <- df %>% slice(match(customOrder, manuf))

# Create factor
df$manuf <- factor(df$manuf, levels = df[["manuf"]])

# Plot
df %>% plot_ly(labels = ~manuf, values = ~count) %>%
  add_pie(hole = 0.6) %>%
  layout(title = "Donut charts using Plotly",  showlegend = F,
         xaxis = list(showgrid = FALSE, zeroline …

在 Spark 平台上工作，使用 R 和 RStudio Server，我想过滤给定列（字符串）满足数字条件的 tbl。因此，该列包含数字/整数值（'1234'）和字符串值（'x1234'），我想过滤掉后者。

使用 dyplr 是否可以实现这一点，例如使用过滤器运算符/函数？

我尝试过类似的东西：

tbl2 <- tbl %>% filter(!is.numeric(col1))

顺便说一句：数据存储在其他服务器上，我不想在本地加载数据。因此我无法使用数据框之类的对象。我受限于像 dyplr 这样的库。

非常感谢帮助！

简而言之：我想将所有Pandas数据框中所有对象列的对象动态转换为字符串。我看到过有关一次转换的类似文章，但它们都没有涉及动态转换为字符串。

我正在使用Python 3.x将多个JSON文件写入我们的SQL Server数据库。当我导入JSON文件并将其存储在Pandas DF中时，所有字符串都存储为一个对象，因为其长度事先未知。因此，当我将数据写入SQL Server时，数据类型被选择为text而不是varchar(255)

有没有办法将dtype的所有列动态转换object为dtype string？字符串可以在前255个字符处剪切。

我尝试了以下操作，但使Python崩溃...

url = 'some-url-to-json-file'
params['connectionString'] = 'driver://user:pw@server/database'
engine = sqlalchemy.create_engine(connectionString)
response = requests.get(url)
pandasDF = pandas.DataFrame(response.json()['value'])

# Convert Objects to Strings
for cName in list(pandasDF.columns.values):
    if pandasDF[cName].dtype == 'object':
        pandasDF[cName] = pandasDF[cName].to_string
pandasDF.to_sql(tableName, engine, if_exists = 'append')